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1.0 ABSTRACT 
USER DEFINED TEST PROGRAM PROVIDES THE CAPABILITY OF 


as rpEOLTING, SAVING, RECALLING, AND EXECUTING TEST PROGRAMS 


DEVELOP. BSPCCIFIC TEST ARUE UP OF SUBSYSTEM CORMANDS, CHECKING, 


AND REPORTING IN ANY SEQUE 


Elahe ee AAD EX Bs tee ou PUR Teepe ae _w HS conrad 


UES, ntti BUFFER. Per AND INITIAL Tze 


TH andins npc A $43 “— SET IS DIVIDED INTO TWO TYPES OF 
acura a6 TO ek ee ETS 
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mM Bn" TED AT ANY TIME 
EXCEP WHILE COM nat NG ie a 


THE GENE NT TIVE (WITH THE EXCEPTION OF THE 
SPECIAL DATA PRITE RN COMMAND, PARAGRAPH 8.1.5) FORMAT IS: 


INTERACTIVE COMMAND, PARAMETER], PARAMETERG, ... (RETURN) 


THE octet Paak COMMAND I ede FOR L grit Rich IT Dal ERROR 
neSSAGE | ates the IN to 45 EC “ 
PARAMETERS ARE Bi. THE 6 "UITHQUT CHECKING GYONLESS SPECIE its O RHECKING 
IS DEFINED FOR’ THAT IN THE FOLLOWING COMMAND 
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18S DESCRIPTIONS. 
ANY one OR ALL hel P TERS. MAY Lee TTED. AN OMITTE 
PARAMETER WILL FAULT fT VALUE CIFIED FOR THA 
PARAMETER. A C WILL C THe: REMAINING PARAMETERS 


T 
ORI TIED THE SoPARATOR Co) MU £3 ie TO BE | Ht 3) AFTER ONE THAT IS 


2.0 REQUIREMENTS 


TO eh hh he he ee 
Sit tan idat tet tpt 


2.1 HAROWARE REQUIREMENTS 
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE USER DEFINED TEST: 
POP-11 SYSTEM (16K MEMORY) 


ue. 


APE PUNCH COPTIONAL) 


SE 


rurvrororo 
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2.2 PRELIMINARY PROGRAMS 
Te CONTROLLER DIAGNOSTIC AND/OR DRIVE DI Aa. SHLD BE RUN 
T RELY ON AN 


OPERRT Tone Cc. sugsveten FEATURES. ARE PROVIDED 70 gFACILITATE 


3.0 OPERATING PROCEDURE AND CONTROL FUNCTIONS 


3.1 PROGRAM LOADING 
THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE 


LOADER OR FROM ANY MEDIA SUPPORTED BY XXDP BUT IT IS NOT 
enna. IT CAN ALSO BE LOADED BY ACT OR APT IN DUMP MODE 


THE PROGRAM DOES NOT DESTROY THE LOADER. 
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3.2 


STARTING LOCATIONS 
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LY LOADED. 


CONSOLE SWITCH REGISTER 
THE CO E SWITCHES ARE PROVIDE CONTROL ana te 


Pete SOM AP eee oI ro 


SWITCH FUNCTION 

1s HALT ON ERROR 

14 ON TEST. WHEN THE SW Ua SET AFTER _THE 
Tesr es a BEEN OOPING PROGRAM igkh. Trs 

- NNN Is" A DECIMAL NUMB 

13 INHIBIT ERROR TYPEOUT 

ll INHIBIT INERATION 

10 BELL ON ERROR 

3 THIS SWITCH CONFORMS TO 


ee is Sa ae a 


HOURS Rieti LONG AS 


tao] "Riad Decl AGG rE ral nll or CSOSE 


ial Rew TCH 
2 INHIBIT ALL DATA COMPARE ERROR REPORTING. 
, ERRORS. | KMEN RESEY REPORT ONLY THE” FiRST 10 
0 WHEN SET FORCE SHORT ERROR REPORT. WHEN RESET 


FULL ERROR REPORT IS GIVEN. 
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HE PROGRAM IS NG RUN ON A SWITCHLESS PROCESSOR (I.E. 


Lif, RBarttys BF of ET adh PS LPI DS. nnepuRRt 
REL pe chee a na ie dtr Ue “tte 
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A HIGHER PRIORITY PROCESSING AN 
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SSEURRCE CORES 
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aia EACH TIME SWITCH SETTING ARE ENTERED, THE ENT IAS SWITCH REGISTER 
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315 Hs i a PP oot Ba REGISTERS nos a ig 

2 Hog Th Fie VeortOeAdPRecrStbn Bb Ae te 

ft 3.5 UNIBUS ADDRESSES 

e UO Pe ORE elt in La RB 

ze Soe We vier nae aL Se 

= ROGREES VECTOR 

333 RKO6-RKO7 277400 210 

341 TAG NAME RKBAS RKVEC 

aus LOCATION 2334e 23344 

345 pores TAPE 

3 OR A BUFFER 1775S2 

347 AG NAME PTROB NOT 

348 LOCATION 1730 USED 

a3 ious REG breen? 

sh LOCATION 1726 
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3.6 


3.7 


4.0 


PAPER TAPE 
PUNCH 
DATA BUFFER 177556 
TAG NAME PTPDB NOT 
Local ON 1734 USED 
ATUS REG 177SS4 
TAG NAME PTPSR 
LOCATION 1732 


EXECUTION TIME 
a TIME WILL DEPEND ON THE SPECIFIC TEST DEFINED BY THE 


TEST PROGRAM SIZE 
RAAF et gt EN or we ty a IT 15 00 NO Posse 15 
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ake ees sae Sct es 
OUR L TEST T He T 
Soi airtel ever EET 


USER DEFINED TEST FUNCTIONAL DESCRIPTION 
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FOLLOWED 






THE F IS_AN EXAM OF WHAT 1s ONSI ERED TYPICAL USAGE 

T Ste USE THE IMMEDIATE 
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TEST ree ISPLAY AND/OR 
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4.1 IMMEDIATE COMMAND SET 


4.1.1 DRIVE SELECTION 
DN, ORIVE NUMBER 


WHERE DR Hy A BTbeLe OrerT .. nT ee SPECIF 
ORIVE TES ie Tob NT usep UNTIL 

ALTERED tts An DIFF nen ye eth NUMBE: 
SPECIFIED AS PART OF A SUBSYSTEM COMMAND WHEN THE PR 


IS INITIALLY LOADED THE DRIVE NUMBER IS SET O° 1. 
ON,? 


MILL SOUSE THE NUMBER OF THE DRIVE THAT IS PRESENTLY SELECTED TO 
BE TYPED. 


4.1.2 OUTPUT TEST TO PAPER TAPE 


87:8 porpdadin ge € 


THIS fon BE ONCHED. re OW EITHER THE SOURCE OR THE OBJ 
ODE 10) Be ScED CODE CAN BE PUNCHED BEFORE 
HE “COMPI sae D, BOTH CAN BE PUNCHED AF 

THE SConPILe® a "AND ONLY THE OBJECT CODE 

BE PUNCHED AFTER THE “RUN”. neue Mest SPECIFIC PARAMETERS (DRIV 


NUMBER, CYLINDER, TRACK, ETC.), THE 
AND THE RANDOM DATA PATTERN ARE ALSon PUNCHED. 


4.1.3 COPY TAPE 
CT (COPY TAPE) 


THE PAPER TAPE LOADED IN THE READER IS REPRODUCED ON THE PUNCH. 


IT MAY BE EITHER SOURCE OR OBJECT CODE. 


4.1.4 INPUT TEST FROM PAPER TAPE. 
IT (INPUT TEST) 
THE NEXT TEST ON THE PAPER TAPE. IS READ. THE TEST WILL 


BE 
RECOGNIZED AS SOURCE OR OBJECT CODE AND THE CODE PLACED TN THE 
APPROPRIATE BUFFER. CONTROL WILL BE RETURNED TO THE CONSOLE 


USER DEFINED DATA PATTERNS, 
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AFTER THE TEST IS LOADED. 
IS (INPUT TEST STRING) 


THE c IFFERS FROM THE INPUT eat COMMAND THAT IF THE 

TeST CT READ_FRON’ TAPE THAT Tol IS IMMEDIATELY NECUTED AND THE 

next T Ao FERS H 5 ave CONTINUES UNTIL A TEST OF 

foene OR ALL TE HAVE BE XECUT Pl | SUPPLY 

XHAUSTED)« NAT CONTROL IS 
RETURNED TO THEY C AS FOR THE INPUT TES ° 


4.1.5 TIME OUT 


WHERE NNNNN IS A DECIMAL Nunesr THAT WILL VARY THE rie DURATION 


A YSTEM EEMEgUT PARAGRAPH 4.4). i ea RE 

RELATIONSHIP TO Py if . MPLY THE NUMBER oF} S Ure, 
OP IS EXECUTE S PRESET TO 2000. 

voLLes Bn g1 oe TO fin ant ofentiee 
TIMEOUT FALUE I Sen hey't A _TEST TS PUN PUNCHED HER. Sourc 
OR OBJECT. oes READ, THE ASSOCIATED TIMEOUT SOALUE 
IS STORED. (10)’OR LESS. 

TO,? 


WILL CAUSE THE TIME OUT VALUE TO BE PRINTED. 


4.1.6 ITERATION COUNT 


IC, NNNNN 


WHERE NNWNN 1S THE DECIMAL NUMBER OF TIMES THE NEXT TEST EXECUTED 


a oot reat iS HAE TIEN ONTO _PAPER TAP EITHER AS SOURCE OR OBJEC 
ERA COUNT IS ALSO WRITTEN. WHEN THE TEST I 
CORDED FROM PAPER TAPE, THE WRITTEN ITERATION COUNT IS USED. 
Ic,? 


WILL TYPE THE CURRENT ITERATION COUNT ON THE CONSOLE. 


T 
Ss 


4.1.7 SPECIAL DATA PATTERNS 


DP, BUFFER NAME ,DDDD----D( RETURN) 
’ DDDD----D( RETURN) 
(RETURN) 


WHERE PATTERN NAME I Y, OR Z AND WHERE DDDD----D IS THE OCTAL 
DATA TO BE USED AS A A pata PATTERN. 


Cc 0 RK61 
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S21 
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THE TOTAL LENGTH OF D I OR_ LESS CONSECUTIVE 


SAIS PRU Bere MS eh BUTES ORD eS 
RRL Hea elk PELE bet ENTERED Te 


EACH LINE MUST a LIMITED Tye mee COREEAGE Be gseli TERS) R 


RL THouGH 6 ABerr ¢ Bets DNA STRGLE WORD, 8 


SOME TH fre OTHER THAN & CAUSES L FT 
pc GONG Or TE PARTIAL GIVEN AND USING A FULL 

MAY IFIED COMMAND 
THYOL VINE Nan pn TIER, siteor in wie SELECT Bt SPEC AL PATTERN. IF 
THE NAMED SPECIAL N DEFINED PRIOR TO ITS USE, 


A PAT TTERN OF ALL ZEROS Ht ILL ree NSUPPLIE 
WITH fue Test. | THESE DATA PATTERNS IND ED HEN THE TEST 


4.1.8 EDIT BUFFER 


EB,BUFFER NAME,WORD POSITION, col 


: Se oe IN THE BUFF ed ate hy ABE pea thd * i 
I APTES ORR AETHE HON oF offen "VE BF CBRE ine Bi 


rT NOT CHANGED BY He ere 
PARTIAL WORDS ARE LEFT IFIED AND “SERO F iro. 


4.1.9 BUFFER DUMP 
BD,BUFFER NAME, NUMBER OF WORDS 
FER AN BE Cc F Y, OR THE READ (R) 
nnRTTE FER Bre ft PAD ERY (A) BUFF ER” (SEE SUBSYSTEM 
COMMAND “Al HEADERS) . THE PRINTOUT STARTS W WORD AND 
PRINTS THE A uN R WORDS SPECIFIED (OCTAL). 


4.1.10 COMPILE 
CO,NC,BII 
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INTO a ONAL _ PARAMETER (Ne) SPECIFIES IF 


Bolte! ei Srrhteol ne PEP unl eos itso Bete wl ni ul 


8 cadta th GIVEN THE TEST WILL 
CORP ILED S FOR TNo- CK PRECUTION 


Op TRE’ SUBSYSTEN FUNCTION” SAAT NPE EE LOTT : 
One x ) Tae eee URES tn poorer ye Repo ALL 


TIONAL PARAMETER (B11) SPECIFIES THAT 


@ 
N 


at te ee 


| 
28 COMMEND Re sop ae THE STORED hee COMMANDS TO BE COMPILED 


ea3 om ae SPECIFYING B efi Be EXECUTED, HATH PUS "spgaESS 
593 a NTERNAL te Sige, T Lg S0KS FOR HOR WORD COUNTS THAT ARE 
B35 Baea FRanse "HERB COUNT ANY” “hiss” 

au BBY renee Pe tre eget ome 
600 

eae 4.1.11 RUN 

602 ie 

B04 RU 

Eo? Conn RO GIVEN BEFORE THE ESP ES COMPILED 15 REJECTED WITH AN ERROR 
608 HESSA . EXECUTING A RUN COMMAND CAUSES THE SOURCE CODE TO BE 
elt 

612 

eta 4.1.12 EDIT ADD LINE 

615 EA,LN,NEW COMMAND 

616 

a0) 

619 INSERTED INTO THE SOURC 

BSs ROMBER MEN CAND OTHE CINECNUMBERS FROM tHE ENTRY +B oHNY” INCLUDING 
be3 THE LINE THAT WAS AT THE ENTRY POINT) TO THE END OF THE TEST WILL 
625 

eS? 

bee 4.1.13 EDIT DELETE LINE 


ED,LN 
WHERE LN IS THE NUMBER IN DECIMAL OF THE LINE TO BE DELETED. 


roo 
Reo 


HET the" sndEa WOR naND ANERE NEW COMRARO 18 THE CORRAND To BE 


COC 
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4.1.14 PRINT TEST 


PT 
THIS COMMAND WILL CAUSE THE STORED SOURCE TO PRINTE 
TELETYPE. LINE NUMBERS (DECIMAL) WILL BE PRINTED AT THE 
BEGINNING OF EACH LINE. 


4.1.15 PRINT LINE 
PL,LN 
WHERE LN IS THE DECIMAL NUMBER OF THE LINE THAT IS TO BE PRINTED. 


4.1.16 NEW TEST 
NT 
THIS COMMAND CAUSES THE PROGRAM TO INITIALIZE I 
THE Cc i BRING THE COMPILED TES 
ANY T NTLY UTiNG ALL TORED PARAME 
NUMBE ITERATION C TALL, Cyt INDE 
ETC.) ARE NOT CHANGED. 


ne 
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4.1.17 PRINT REGISTER 
PR,REGISTER SELECT 


WHERE REGISTER SELECT IS THE UNIBUS ADDRESSABLE REGISTER 
SPECIE TED OCTAL NUMBER OR A NMEMONIC NAME. THE 
POSSIB TIES SORE: 


NUMBER NAME DESCRIPTION 
a ext HORD COUR STATUS REG 1 
BA 
03 DA toy TRACK & SECTOR 
04 cSe il REG 2 
OS DS 
06 ER OR rats 
07 ASOF eee uf Y & OFFSET 
10 oC DESIRED CYLINDER 
11 UNUSED 
le DB: DATA_BUFFER 
13 MR1 MAINTENACE REGISTER 1 
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PRINTENANCE REGISTER 3 


HRS 
PAT =«EGE/PATTERN 


> 


NO UE 


4.1.18 HELP 
HP 
THIS COMMAND WILL CAUSE A SUMMARY OF THE INTERACTIVE COMMANDS 
BE PRINTED. IT IS VALID ONLY AFTER THE PROGRAM IS FIRST LOADED. 


s. 
4.1.19 FORMAT SELECT 
FT, NN 


WHERE NN F 1. 5 AF OaMaT oS NUMBER (24 FOR 20 
* TRACK A " cTOR/TRACK) | Aue FORMAT wlth" tcnatie 


stg A at 
eee: ony oie erat SHOT ee eet Tae 
Aas T_OF T I 0 


SEQUENTL LY TING CAN 


CHANGE THE he SELECT 
FT,? 
WILL CAUSE THE FORMAT VALUE TO BE PRINTED. 
4.1.20 DRIVE TYPE SELECTION 
OT,ORIVE TYPE 


WHERE DRIVE TYPE IS A SINGLE DIGIT 6 OR 7 TO SPECIFY 
THIS DRIVE TYPE W BE USED UNTIL ALTERED BY ANOTHER 
OT COMMAND . PROGRAM TS ENITIALLY LOADED, THE 
IVE TYPE IS SET 10 6 FOR RKOE OPERATION. 
DT,? 
WILL CAUSE THE DRIVE TYPE THAT IS PRESENTLY SELECTED 


4.2 DEFERRED COMMAND SET 
#2%% IMPORTANT ##% 
THE DRIVE TYPE CANNOT BE SPECIFIED OR ALTERED BY 
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ANY OF 
At aS MUST BE Be SPECT TTD. von ALTER OR ALTERED_ONL cee A ae te DT 


4.2.1 SUBSYSTEM FUNCTION COMMAND 
SF, SUBSYSTEM COMMAND, ORIVE NUMBER,CCC,T,SS, 
NUMBER 


OF WORDS,DATA PATTERN’ 


WHERE ALL NUMERIC VALUES ARE OCTAL AND: 
% SF IS SUBSYSTEM FUNCTION COMMAND. 
% SUBSYSTEM COMMAND IS ONE OF THE FOLLOWING: 


RD fe DATA 

+ DATA 
HEL feat 
RH READ 

a CLEAR 
ce fear eveageT=™ 
Ree 
UL 

32 SI 0RL SPINOLE 
AH ALL HEADER 


PP UNSPECIFIED THE LAST DRIVE ADDRESSED WILL BE USED. 


CCC_IS THE CYLINDER ADDRESS OR THE OFFSET VALUE IF THE 
SUBSYSTEM COMMAND IS OFFSET. 


T IS THE TRACK ADDRESS 
SS IS THE SECTOR ADDRESS 
NUMBER OF WORDS IS THE NUMBER OF WORDS TO BE 


CHECKED SGAINST THE MAXIMUM 


ROE FRAN Hig ie eat) sieht 


THE TEST IS Come {LEO cone tt we 
BESCRIPTION). © ° 


DATA PATTERN IS AN ALPHABETIC CHARACTER TO SELECT THE 
DESIRED DATA PATTERN FROM THE VARIOUS PATTERNS AVAILABLE 


SEQ 0015 


+ yh “opt 4-4 oF ier MACYI11 30(1046) O2-DEC-77 11:59 PAGE 17 SEQ 0016 | 


is SFE MBErtee OMe OPP den als "WES LEEG rem vee WF 
GALLE" AMIN" PBK 2S thie 
SEPARATORS °C.) BUST phat Be wee IF A BARAMETER 15 IS OMI ED AND 


cena | 





i Sica ire 
HE ee 

it EHS AE TP OP Sh EE 
i SR pT RUPE RPL aad AGW DRAB OR SPERD Sl SFr PR 
B sae aes, ca NV RUE BBE SE oA TE 
é Ss 

830 

Bs 

es 

ee 3 : 

63g THE WRITE HEADER CYLINDER 
2 ati = i "er Fe fesobh toh 
fi Pe eR Ra es Agee a 
f Pca PUM erases ee eB eel ls 
848 

3 SP RIFE SAPP USS I Bile ig Btn "Boo 
B53 FIRST 2 nero OF BUFFER 2 (66 coe “REQUIRED FOR HEADERS 
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B57 4.2.2 BUFFER INITIALIZE 
859 BI,ALPHABETIC CHARACTER 
Bet TIC CHARACTER R SPECIFIES $I pata PATTERN TO 5g 
She i ben' NOEX "bate TTERNS) . THE QUTPU 
863 BUF ER W ie ae THE PA Ser RED ontA oa ACTERS 
864 ECT THE USER I 
BES the Vepe rae EN USER DEFINED BEFORES RY; 1s 
Bee SELECTED A At PRP TERN OF eR HeEROS TREE Be 
870 4.2.3 DATA COMPARE 
876 DC , NNNNNN 
874 WHERE NNNNNN oyentah A OCTAL UE SPECIE ING NG THE NUMBER OF WORDS TO BE 
875 RTING 5 of fr NING THE OUTPUT AND INPUT 
876 Burr E HE NUMBE R OF WORDS IN THE LAST 
B77 NPUT DATA Tronrennny 1 
879 A DATA WILL CAUSE THE GOOD AND BAD DATA TO BE REPORTED 

PNOTHE ERROR REPORT 


4.2.4 STATUS COMPARE 
SC,STATUS WORD NUMBER,EXPECTED VALUE , MASK 
WHERE ENTERED VALUES ARE OCTAL AND: 


* STATUS WORD NUMBER 18 THE ORE aT ereS Thee ocH'S Ano 
Are AB tre Tare ae Rg TE © THRCCH 7 a 





RESSeeR Loe ese URRCO RES 


one * rec rEs VALUE IS THE VALUE THE STATUS SPECIFIED SHOULD 
° 

907 

908 * CIFIES WHICH BITS ARE T OMPARED IN T 

909 SEIU cet "Pasar QAO THE EXPECTED VALUE.” B one 1H 

910 PEC "POSITION ALL IT! 

$11 AND A ZERO INHIBIT " coMPaRISON. 

Sle nASK ages PNITIALLY SET TO 077777 WHEN THE PROGRAM IS 
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: 


IS CHANGED BY : 
NCLUDES MASK 


WOODDW0W 


ee 
WONT £W 


a svar anaemia WILL CAUSE THE GOOD AND BAD STATUS WORDS TO 
BE REPORTED. 


4.2.5 REGISTER COMPARE 
RC,REGISTER NUMBER,EXPECTED VALUE, MASK 
WHERE ENTERED VALUES ARE OCTAL AND: 


* REGISTER OPE MATS ELGG. Umms soonessene 


OE RON TRIN. IS THE VALUE THE SPECIFIED REGISTER 





CIF BE COMPARED IN THE 
ee nae a eee 
coe Paar coated oar tee 

° r) 

s THAT UDES A 


MASK SPECIFI + of see 
REGTSTER MISCOMPARE WILL CAUSE GOOD AND BAD VALUES TO BE 


4.2.6 REGISTER WRITE 


PUR EEE RS EERE ry ert wy 


9$3 RW,REGISTER SELECT, VALUE 

ee WHERE ENTERED VALUES ARE OCTAL AND: 

957 2 TER SELECT IS THE NUMBER OR THE MNEMONIC NAME OF 
958 Are UN UNTBUS” ADORE ADDRES E REGISTER OF THE RK611 TO BE 
989 WR TIEN: (SEE PARAGRAPH 4.1.14 FOR LIST OF NUMBERS AND 
Frat NAMES. ) 

oes # VALUE IS THE VALUE TO BE LOADED. 

e5 

966 ANY REGISTER AND ANY VALUE MAY BE SPECIFIED. NO CHECK IS MADE 


967 FOR READ ONLY BITS. 
968 


i ns est seen etn 


TTT EEE EE wa st uit te we 


— EE eee ee 
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CZREPC. 


SEI rn ToR CH eee eUR eae 


O00000000 
NOU CWO 


Cd ed cel ceed cel ceed cel eel aed ool seed eel aed eee ed eed eed eel eed eed ed ed ed ed od 
ey ey ee ay ay as 


FINED 
11:0 
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4.2.7 STALL 
ST, NNNNN 


BEFLEEN SUBSYSTEM FUNCTION COFMAROS.  NNNNH MUST BE 32767(10) OR 


4.2.8 PRINT MESSAGE 
PM, MESSAGE 


ener Ha at fe St S PME We CONSOLE ERMINAL WHER THE 


INTED ONLY DURING 
XE 


IS PR 
eared fe Sa reer 8 FERBTIONS TE THE LTERBTION 
SOUNT “15, GREATER THe F LOOP ON Test ¢ (SW14 SET) OR LOOP ON 


4.2.9 UNIBUS INITIALIZE 
UI 


THIS COMMAND WILL CAUSE A RESET TO BE EXECUTED TO CLEAR ALL UNITS 
CONNECTED TO THE UNIBUS. 


4.3 LINE NUMBERING 
a COTE AS ARE ENTERED AND STORED. THE PR a GNS 


aan NYSED IN IN THE Ber COMMANDS (ER StolENTIALS. mi: Hi 
Esc tan SF. II AMEE 


MUST TAKE HE NEW LINE NUMBERS INTO CONSIDERATI 


4.4 TIMEOUT 


TO_ PREVENT one Fe eee ee cveten Aner (THE PROGRAM STARTS AN 
OPERATION TEM AND THE SUBSYSTEM NEVER SI S 
COMPLETION) A SOFTWARE TIMER IS EMPLOYED. * EACH TIME THE PROGRAM 


SEQ 0019 


a 
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TAB SFEPAE COR PRD "HE POPPY SHBAB Cet es YtHIATA AbaeoAReLe 
i ta ROES_NOT COMPLETE, THE PROGRAM 


PERIOO OF TIME JUST rent OeD a NOT ee a TO 


Shot bin PRbceStsea® SeCuse oF v 
OF VORTAELE | CSE TIMEGUT CORMAN olacetPr iON) nt te Seralr ta DE Is 


4.5 TEST LOOPING AND LOOP COUNTERS 
vELN DE SATION SOTTO ROUDED. LS ERGT™ hiehebORn Wr" 
Bethe PHBPED, aco" Oe 8 


THE LOOP COUNT IS REPORTED IN TWO INSTANCES. THESE ARE WHEN AN 
FER OR MP HSTCE AND IS REPORTED (SWITCH 13 RESET) AND WHEN LOOPING 


BRERSINOO 


ee ee ee 


Sea a cde Gate ee Ree 


5.0 ERROR REPORTING FORMATS 


Ee Rl Bas 


COMPART I.E., US COMPARE, REGISTER 
AND DATA C 
S.1 FORMAT 1 
FORMAT 1 HAS THE FOLLOWING ENTRIES: 
ERROR MESSAGE 
XXX = CMND LINE NUM 
ca DRIVE= 
zs eno 


CURRENT OPERATIONS: 


PARAMETERS GIVEN: 
CYLNDR SECTOR TRACK OFFSET BAH BAL WDC 


se te eh te ee be Be he ee Be be be ee Be Pn Bs ee be ee ee bs ae be ee be be oe 


oO SSSooeaess 
Boarous 


ee Cane ee 
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0e¢ APPLICABLE REGISTERS: 
ped cSi cSe WC BR ODA DC ASOF 
pes ER pos Ao) CséwBO 
oss Al Bl Re Be AZ B3 ECC/POS ECC/PAT 
036 PREVIOUS OPERATION: 
ose DRIVE= 
033 
Bae CMND= 
B38 PARAMETERS GIVEN: 
Bae CYLNDER SECTOR TRACK OFFSET BAH BAL WDC 
XXXXXXXXXX = NUMBER OF LOOPS 
BRAT Fon . EOATTTEDS POR OR 
"al Notte ORE NOT APPLICABLE To A 
HESE ENTRIES ARE OMITTED IF PA 





DSBS OG O0 ORY SPERM OY OFT Teer E.G 


EXP XPLANATORY. ’ ALL E OR MESSAGES ARE BEF rth aetou™ sp A 


5.1.1 SUBSYSTEM DETECTED ERROR 


H SAGE IS PR NEVER Ive oe OGRAM IS ALERTED THAT THE 
cee ySTER Fag DETE cTED AN OAT UE. HIS INCLUDES ALL THE ERRORS 
DETECTED IN THE RONTROLLER OR 


5.1.2 UNSOLICITED ATTENTION 


Le ICATES AN_INTERRUPT WAS RECE VED faon A ORIVE BUT 
- RATION iN HAS BEEN S HAT DRIV L 


I 
e. ee 


EN STARTED ON T 
ee bc alia ab PRINTED KHER Phe chan Tg stented. Ben PROGRAM 
IS ATC one re ene ARE ,OCKED QUT) BIT IS PRINTED AS 
SOON AS CARRI T D ON THE CONSOLE. 


5.1.3 UNEXPECTED DATA TYPE ERROR 
THIS MESSAGE INDICATES AN INTERRUPT OCCURRED THAT WAS CAUSED BY 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 


ba be hee be be be ete he oO 
HI wtat feted th ttt Path ets tet WERT Thetchey bet hr ptt thet 4 
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Ww 
N 


DATA ERROR TYPE (DCK, OPI, HUNC, OR 
NON-DATA TRANSFER COMMAND WAS’ BEING’ EXECUT 


1 a WHEN NO COMMAND OR A 
5.1.4 ATTENTION DID NOT RESET WITH DRIVE CLEAR 
THIS at ‘a INDICATES A DRIVE CLEAR COMMAND WAS NOT 
+ “PROGRAN. a TION 9 . THIS IS A CATASTROPHIC ERROR 
ONTE HE HIGH ATTENTION SIGNAL WILL CAUSE CONTINUOUS 


5.1.5 ATTENTION DID NOT RESET WITH SUBSYSTEM CLEAR 


Me s aa TH OF FL RROR_OF THE SAME AS “ATTENTION 
en HE DIFFE ENCE IS THAT THE 
YSTEM CL’ SET TO ALL DRIVES. 


5.1.6 ILLEGAL DRIVER COMMAND 


pL} MES 75 AN INDICATION 
EM. SHOULD NEVER 
DIAGNOSTIC ENGINEERING. 


IN H eis PROGRAM _INTERLAU 


OF AN E 
APPEAR. F IT DOES, PLEASE NOTIFY 


5.1.7 SUBSYSTEM TIMEOUT 


Mts ae PPLCATES THAT THE SYSTen ee tteR TO SEND AN 
INTERR WITH “RERSONOSLE PERS 90 Foe fe fn “REASONABLE” IS 


SUFFICIENTLY LONG SO VE OCCURRED. 


5.1.8 CLEAR CONTROLLER DID NOT CLEAR ERROR 


THIS MES NOIGA HAT T ONTROLLER ERROR WAS NOT RESET 
A ne CONTROLLER CLEAR HAS DONE. THIS AE THE SARE. INPLICATION 
AS CORIVE HARD OR” MESSAGE BU AT THE CONTROLLER LEVEL. 


(PO Owe VOI Lose Owed WOME aoe De VOUT LUO Gubes IO £ coho eo 


5.1.9 NO ATTENTION IN ATTENTION SUMMARY REGISTER 


THIS MESSAGE INDICATES AN INTERRUPT WAS RECEIVED FROM THE 
CONTROLLER BUT NO DRIVE HAS RAISED ATTENTION. 


co 
(Uy) 


5.1.10 DATA LATE WHEN UNLOADING HEADER 
THIS MESSAGE IS PERTINENT TO THE READ ALL HEADER COMMAND AND 


sl gulaqual aml aad aml emul ape cum aml anual coed aml aml ame ened ened oneal aed aoe ancl anol ome aed aed seed ed ead eed eed ee el ed el ee ed ed eed ee eee 


ee ee ee ee ee a ee be ee ee ee eee ae ne ee ae ne ee ae ae ee ee ee ee ae be ae ae ee ee 
iteteWiteget 
i on 


a eee; - - 
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oo 


BSPRIE 


SRNR RERE ES 


bh ee 
WONTU LS Wwe 


rurororurorururoror) 


rururorurorurururururururururufurororu 


se ee ee ee ee ee ee ee ee ee ee Be ee en ee Be ae ae ee ee fe He an bm ee Be an be ae ee ae be ee ee 
SRRZORLSS Hf 
Wit ete ttt i 


INDICATES PROBLEM REACHING THE DATA BUFFER. 


5.1.11 CONTROLLER ERROR WHILE ORIVER SERVICING 
puts OGRAn WES” DOING SERV A GONTROLLER obeRarT one WHIL avie 
BRE PERPORMED. UMEN TH Mic Palthes Te Cansenan Sa i 
CLEARING ORS, ETC 


5.1.12 DRIVE PARITY WHILE GATHERING Si US 


THIS MESSAGE a ho THAT THE ORIVE HAS. DETECTED A _ SERCON 
OOTY ach neve’ WHILE THE PROGRAM WAS DOING THE SERVICE OPERATION 


5.1.13 MULTIPLE DRIVE SELECT 
THiS MERSOSs ob ne ecaG ANATORY AND WILL APPEAR WITH A SUBSYSTEM 


5.2 FORMAT 2 


COMPARE ERROR. “STATUS COMPARE ERROR, AND DATA CORPARE ERROR. 


THE REGISTER AND STATUS COMPARE ERROR REPORT FORMAT IS: 
XXX=CMND LINE NUM 
ERROR MESSAGE (STATUS OR REGISTER COMPARE ERROR) 
NN=REGISTER NUMBER OF STATUS WORD NUMBER 
(VALUE EXPECTED)=GOOD DATA 
(VALUE RECEIVED)=BAD DATA 
(SPECIFIED MASK)=NUMBER OF LOOPS 
THE DATA COMPARE ERROR REPORT FORMAT IS: 
XXX=CMND LINE NUMBER 


DATA COMPARE ERR ON WORD NNNN 
(DATA)=GOOD DATA 


SEQ 0023 


C O RK611/ 
EoRERC. P21 


se an a 


NNN 
= 


rorororururororuru 


BONoue 


Sees E Rees 


Soe eaE Re 


wre 


Dee ee ae ae ee ee ae be ee be he he be be Bae ee Be ae Be ae be Be ae be ee ne ae ae es ae ee ne ee Pn ae ne ee be Be bw be Pe be 
oo 


WWWWW 


2 
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COATA) S88) DATA 
XXXX=TOTAL MISCOMPARES 


XXXXXXXXXX=SNUMBER OF LOOPS 


APPENDIX A 


THE FOLLOWING DATA PATTERNS HAVE BEEN DEFINED. 


PATTERNS WILL BE INCLUDED WHEN THEY BECOME KNOWN. 


PATTERN “A” PATTERN “B” 
177777 oo0000 
177777 
(32 WORDS) (32 WORDS) 
oo0000 177777 
177777 000000 
PATTERN "E" § PATTERN “F” 
000001 177777 
ae 
77774 
17 177770 
000037 177760 
000077 177740 
00177 1 
50077 135 
001777 177 
OO3999 1350 
17777 eae 
037777 160000 
077777 140000 
177777 100000 


PATTERN “D” 


PATTERN “C™ 


(32 WORDS) (32 WORDS) 


125252 052525 
125252 0525 


PATTERN “G” 


077777 


ADDITIONAL 


SEQ 0024 


| 





eee, 
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Sateen 


a ee 
Ono U.S WUE O 


oo 


Bt ba hae be hen an pee it ae pe ne fn Je fe pee Bt pe ae bn 
WW) WWW WW WWWW 


SFRGR SIERO RENTON 


WWWWWWUIW 
NU 2 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Www 
RATA 
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PATTERN “I” 


PATTERN “H™ 





(32 WORDS) 


155555 
155555 


WS 


oN 


N 
“N 
vian 


3 


be a be 


WS 
ae 
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| 1363 
1 APPENDIX B 
13s 
138 COMMAND SUMMARIES 
1 
1 
: B.1 USER DEFINED COMMAND SET 
1371 
137e B.1.1 IMMEDIATE COMMANDS 
1394 
1375 ALL DECIMAL VALUES MUST BE LESS THAN 32767(10). 
1377 
1 Pp T 
1379 a etn Antec ena 
te DRIVE SELECTION ON ,ORIVE NUMBER 
1383 “3 
1: OUTPUT TEST OT ,0 
bee ‘ 
1 
1387 INPUT TEST IT NONE 
1 INPUT STRING IS NONE 
1390 ITERATION COUNT Ic , NNNNN 
i 31 Cc | 
1333 SPECIAL DATA BUFFER oP PATTERN NAME 
1 a eeee 
1338 COMPILE co ,NO_ CHECK 
1337 ; INCREMENT INHIBIT 
1399 EDIT ADD LINE EA »LN 
1400 *NEW COMMAND 
1402 EDIT DELETE LINE ED ,LN 
14o4 EDIT BUFFER £5 , BUFFER NAME 
14 ;WORD POSITION 
1408 ,;DDDD--D 
1408 BUFFER DUMP BD » BUFE R NOME 
i410 OF WORDS 
ait PRINT TEST PT wore 
113 PRINT LINE PL ,LN 
i415 T T 
1415 NEW TEST N NONE 


eee wa 


| 
| 


STATUS COMPARE sc »STATUS WORD SELECT 
»EXPECTED VALUE 


ss 
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1417 
i 
|. He RUN RU NONE 
ek PRINT REGISTER PR ,»REGISTER NUMBER 
1423 HELP HP NONE 
14 TIME OUT CHANGE TO , CONSTANT 
he TO ot 
1428 COPY TAPE cT » NONE 
1331 FORMAT SELECT FT » FORMAT 
14 Se 
1433 DRIVE TYPE SELECT oT »DRIVE TYPE 
143 ‘ 
1439 
1438 B.1.2 DEFERRED COMMANDS 
| eg 
hat ALL DECIMAL VALUES MUST BE LESS THAN 32767(1). 
1443 
was COMMANDS MNEMONIC PARAMETERS 
1446 
1447 SUBSYSTEM FUNCTION SF » SUBSYSTEM COMMAND 
1448 ;DRIVE NUMBER 
1449 ,CCC 
1450 “ 
1451 ;SS 
14 ;NUMBER OF WORDS 
1453 ;DATA PATTERN 
1455 ' BUFFER INITIALIZE BI »PATTERN SELECT 
1457 DATA COMPARE He NONE 
149 ; 
1 
14 
i4e3 , 

1464 REGISTER COMPARE RC »REGISTER NAME OR 

1465 NUMBER 

1466 »EXPECTED VALUE 

1467 » MASK 

14e9 REGISTER WRITE RW ,»REGISTER NAME OR 

1 NUMBER 

i » VALUE 


fot 
NNN 
wero 





CO3 
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iz3 STALL ST 
11s PRINT MESSAGE PM 
1472 UNIBUS INITIALIZE UI 
14 


B.2 SUBSYSTEM COMMANDS 


SELLS LCS 


Bate Bae, 


BoB IRRLoR—o 


SCELSLCLLCOCLC&L&&C£ 

= 

5 

Roa 

eB 

D2 

oe 

8 

4 

D 


QRR 20 
rer 
me 


OB55 
BOR 
“g 
af 


READ ALL HEADER 


ee ee he ee ee ee ee ee he ee 


ww 
Oo 
W 
x 


- ee ee o- 


, MESSAGE 
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FOR HORIZONTAL TAB 





t petuRn 
TURN-LINE FEED 
; i 600e FO STATUS WORD 


157558 stants j2te24 tJ PROGRaA INTERRUPT REQUEST REGISTER 
177570 Barer SP= 135850 + HARDUARE Bt aac A v REGISTER 


;#GENERAL PURPOSE REGISTER DEFINITIONS 


0000; fi: {GENERAL REGISTER 
000003 


QUIT UU UT UU Un 


NOU LUO. NOE 
: 


Re= iH GENERAL REGISTER 
R3= “3 ; : CENERAL REGISTER 


nn 
ow 
8 
: 


1305 ; RRR REV 
| 1507 Mist 
| t rd Ss AMA 
: 19 167000 = 6 i DEF INE SWITCHES 
1 1/06 _USR DEFINED 
1512 Pith eas (C) 1976, 1977 
HE tERAVNARD ty ERENT CORP. 
1518 HpRocRAM BY MARV TEGROTENHUIS 
151 3 ING THE POP-11 MAINDEC SYSMAC 
1818 Fiat tial (MAINDE as PEE Oca) JAN 19, 1977. 
1 000001 thet 
: ge TTL OPERATIONAL SWITCH SETTINGS 
1 i SWITCH USE 
1525 i eae > centenarians 
| fes$ H 18 Hebe 8h FBEPR di 
-# 
tes§ it i? FNHTBE FSBRR, TORE 
1830 ; * 3 LL ON ERROR 
ie 3 teats 
1 3% 1 ALL DATA M SCOMPARES 
1534 + 0 SHORT REPORT F: T 
i .SBTTL BASIC DEFINITIONS 
i cone gINITIAL SS OF THE STACK POINTER ### 1100 *## 
1540 ~ EQUIV , ERROR ;;BASIC DEFINITION OF ERROR CALL 
i 43 ‘EQUIV IOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
154 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 


SEQ 0030 


E03 
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FINITIONS 


EfReRC. Pll De-DEC-7? 11:07 


wun § Guibicieaieg 
edd te a a ee ws 


rrrrrr>> 


deg. seeveres 


BIT DEFINITIONS (BITOO TO BIT1S) 


400 
200 
100 


=aFrUAsT 


i a SWITCH DEFINITIONS 
i 


>>>>>>>>>> Saag So Hy UBB oe u r 


i 
coor =UMTMNwON 
Prefer rrr x ” 
rrr ee 





nee 


REM Tne eR eter toni foam Ma er ey irene 


a a ad a a dd a ad ad a dd a ad ad ad ad ad ad a ad ad ad ad a ad ad a dad ad a ad nd ed a ad ad ad ed ad Od ad ad ad Od od od 


FLO AA aE DL A ET ED LR | RR a RR A EOE rt 


FO3 
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5 & ss |. ¢ fs 
- Be & LE 
ae ww Oo OF 

ef . : b a. < 
eB 62 3 vee oe 
7 a 
Sa ed 
r= te 

Bede ate 


TRAPS 


CATCH I 


sf 
at 

7 

R 
EMULAT' 
Pe 
PROGRAM INTE 


FROM 4 - 77 
LLEGAL 


Lor 
ins 
@sUDTSRT 


rf -oad 
a ee oO 
LoalandeelanlanlanlanlenianLond x 
Peresleslesterteslerlestesler) oO 

ee ee eee eee an 
Se5ssacscs e 
FEE EEE 





S 
P= 
oO 
S 
COnr OTMU-O 4 
= 
FRosu-seseaaoooe : 

Oo 


UuUNNO oO oO 
wns orc >>>>>>>>>> Paaaaaaay to i) Pe 
Samaas oom SEgeryceeeetod ite BS 


SS 


Oe TEN EE RANT RN BO OT Oat TS NTR 


I Ree Beer Ree Reems Rete Roem Kame Ree Kem Kame ome Kame Kam Kem Loam Kom Kare keen Keo eae here Keo am eae hem Kam) dd th Ow tt te 





ooooed 
4 
0 
ooooo00 
p00000 
anes 
ooo2e00 000137 O04116 


mm ee eC 


a — — 


c 0 RK611/ FINED MACY11 30( 1046) -DEC-77 11:59 PAGE 33 
CSRERC Pil B8-bec- 11:07 COMMON TAG SEQ 0032 


-SBTTL COMMON TAGS 
DA ib tab-5-b-tab tab ttt 5-4 bet teh 4-+-5-tot-ted-b- doth betel -5-+-+-5-4-+-tab ah +-5-5-1-5-$ t-te 
OMMON STORAGE LOCATIONS 


i kTHIS TABLE CONTAINS VARIOUS C 


BS 


001100 





WAS SRE SE SL 


+ 7 ++ + 
Ob be 






Det ee ee ee ee ee ee 
RENEE 
Bee bee bes ne ane Be hot a nt Dt be fn fae Boa me oe 





1 1 

1 1 

ieee Boil 

ie 138 

1 144 

1 1 

1 1 

1638 He 

tess Boil g 

1635 11 - 

1 O11 

ie ie : 

e699 1130 000377 eer eear recovers i 

178, BBilee up 

i fi ce a 
ee sur a es re Bh RA ae 

179 Sales teeah ‘HBR 1a FiadtPas fee 
Bi Hi ae algaiphoane 
171 161 FORMAT: .WORD 26 ep SUBSET 

i218 iSie : .WORD 0 4 T ENTERED, ATUS MESSAGE 
1714 1220 STVAL: .WORD ;LAST VALUE READ FROM STATROD 
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1715 o01222 ene ie ite te SEs sre ies Kes 
1545 BBISs? it AD FROM REGNUM 
1318 BB TCNT: : SAN COUNT? et SK 
17 D i SFEME: ‘By we (NO VALID SOURCE) 
1 001 PATSEL: .BYTE 101 CTED 
17 001 PATXDF: .BYT x 
17 001 PATYDE : pat Y 
ie i : bat : -BY A PAT 
1 1 LNCNT: IN BUFFER 
1758 1244 ORVTYP: :BYTE 0 TYPE, O=RKO6, 4=RKO7 
17 1245 OPFLGS: .BYTE 0 ‘ pummeet Toh 
; . 

ie HH AA: SERIES moe ar 
1332 BUFLS?: - HORR 0 + BUNCH ONE EF IL SI ithe OF BYTES IN 
17. ay SOURCE far 
176 BonsZE: “HOR ite :Bar OFFSET ee te 
a Bayes? BERR §BCO00 FTIME OUT NOR DEFINED PATTERN x 
ize PATY: .BLKW 40 ;USER DEFINED PATTERN Y 
1747 PATZ: .BLKW 40 ;USER DEFINED PATTERN 2 
1548 PATR: .BLKW 40 ;RANDOM PATTERN STORAGE 
i .SBTTL CONTROL PARAMETERS 
1788 001662 PRINH: é Byte” 8 a — ;PRINT INHIBIT SWITCH 

4 RR: : RROR FLAG 
Lees BBIees sr. EE ISTP tat surrox 
i755 Sales Pris, ee 8 POP TER gL.ocx SELECT SUITCH 
17es 001672 HPVLD: ER 377 :HELP VALID SRitcn” 
17e4 poiere paTPTR: “worp ft 000 {POORER b BATTERN BUFFER 
fee 631788 iat “HBB °° He Tee oeer oie T (SET BY PROGRAM? 
1770 00171 IBUFPT: ; NPUT BUFFER POINTE 
158 BBLS ret: iB HIRELY OFFER potaNER 








ee eee - - = 
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ONT 
1712 OFPTR: 
714 NTSTR: 
134 Surgine 
| 13 DpenTis 
17; pee 
17. P : 
17 Pp $ 
13 } 
1 F 





ae 


BAPRERROBISSASNS 


~) 
2 





oo 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
Pfatetatalatatatt Re Ree RRR: 
S Stet tat bt at tie 


causes 


RRBBRERPBBE RST AMO 


2 
‘i 
° 


a 
eS Se ee ee we es St we we wees 


SBTTL 
00010 ORV: 
etapa) K= ™ 
000105 CLEAR= 
810 Beet Oe = 
811 000111 = 
Ble 000113 = 
813 poo ts FSET= 
814 rede = 
815 lel TA= 
OB es 
818 eit Ab= 
B13 000131 WRTCHK= 
B55 
B55 ‘ 
8e4 000140 RELEAS= 
8eS 00014 ROSTAT= 
826 000164 RDALHD= 


eel eee bon OM eS el et et oe eet eet nt et ond 
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i ax 


cheer 


; Bee ee STER 


ST 
; pec 

AT ve eetsteR FSET REGISTER 
ie REGISTER 

MA 

;MA 

MA 


‘. a 


+ 
~4 
2 
m 


R AND DATA 
CK 


Me BUT ARE USED BY THE DRIVER 
SIRED OPERATION 


IVE 
ALL STATUS FROM DRIVE 
ADERS 


Cc O RKE11/ 


Re 

2g 
3 
= 
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1 1 CONCLR= 176 ; CONTROLLER CLEAR cot 1S OF CS1) 
i Tie bop SREP etemausd ots oP 
; DRIVER ISSUED SERVICE COMMANDS 
a) Be SEk: HB BME SES 
-SBTTL CONTROL AND STATUS REGISTER 1 BITS 
eae ge an ae 


PURSE SSGeAEOR SOR RR TORE BOSS 


co 
Ta] 
ul 


Bene 


see ex A 4 


se ae ee ee Be be ee ae be ee ee en ae ee ae Be ee pn fe be Be be ee be be be he Pe, 


Ct SERBS PRES 








IT 
tt 
T Tio IVE TYPE (O=RKO6, 1=RKO7) 
& fos HH? ; OUT WAITING FOR 
s 
; FORMAT (O=22 SECTOR, 1=20 SECTOR) 
CPAR= BITS : YE ERROR DETECTED BY CONTROLLER 
i i pat Rit ae 
= 4 
CCLR= He ;¢ 
IT EIN T ARE USED FOR ADDRESS 
; HE BB By BE Ae 2 
; T1 
a oe 
DRIVE TYPE TYPE (O=RKOB , 1=RKO7) 
B.CFMT= BIT CONT FORMAT (O=22’ SECTOR, 1=20 SECTOR) 


-SBTTL CONTROL AND STATUS REGISTER 2 BITS 





Bests arr 

RLS= IT ; 

BAL= Bits 

CLR= T H 

SCLR= T ; 

ERS BIT? : 

HDs Bits : 

PGE= T10 $ 

ee FHL a ae 
ces BET tURTTE CHECK & 

DLT= ®ITIS :DATA LATE ERAGR 


-SBTTL ERROR REGISTER BIT DEFINITION 


ILC= BITO ; ILLEGAL FUNCTION CODE 
;#ILF= BITO ; ILLEGAL FUNCTION CODE 


j 
DR  ————_——__ 


Cc 
c 





met ee ee 


aati ttt ttt. 


SEE eRe ORES 


WDOWOODOW 
eer aT 
NOU SWE 


SERRE TE NI is 


be bb be bh hb bb bb bb bb bb 0 bb bb bb be bb be be bb he ee 


——— 


0 Dol 08 ee OSF iN 
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04 
1 


000040 


07 


MACY11 OK ae) cheTENn ar? 


EE 
wii 
wit wn 

AAA AA te te i 
WOOnNCuUIL 





FORE 
ORE= 10 
= 13 
= 
bres is 
UNS=  §BITI4 
OCK=  &BITIS 
.SBTTL STATUS REGISTER BIT DEFINITION 
DRA TO ;DRIVE AVAILABLE (CONTROLLER IS SET IF 
ud bee ; THis “ak 1S RESET) 
OFST= T : SE 
ACLO= T ; 
T4 : 
= T iD 
VV= 3 3V 
Roy 15 . 
= 8 ;DR  (O=RKO6, 1=RKO7) 
z Tih ;WR 
PIP= itt ; i I NING. IN PROGRE ss 
14 Sn T14 ; 
SVAL= TiS SATUS Tarus CHANGE 
.SBTTL MAINTENANCE REGISTER 1 est DEF INITION 
MESMSK= 17 ;MESSAGE MASK 
PAT= Ts VEN PARITY ON DRIVE BUS MESSAGE LINES 
paps ; BAIN TOR PULSE 
MIND= T ; MAINT 
Ke 18 ;MA 
MERD= T ina N Sey READ DATA 
MEWO= ITiO ;MA D WRITE DATA 
Hg vere 
i Che Tl tEC E+ OR WRITTEN 
WRTGAT= BIT14 f TE noaTE 
ROGATE= BITIS 


-SBTTL DEFINITION OF DRIVE status BYTE OO MESSAGE A 
S.ORA= BITS ;ORIVE AVAILIABLE 


| 
= 


ERR LOM ER 


GbReRe- Pil be-DeC-7? Li 


1939 000100 


2 
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e285 
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ee ee eh eh 





See Ls kab ub ud a ete EES 


oOoWwWw 
Saasas 
g 
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aN 
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000007 
100000 


es ee ee ee ee ee te ae ee ee ee ee ee be be ee be be ae ee eee 


33 
38 


LO3 
MACYLL SBLAOO} RPP Gare Hifis GOVE BB nessace 


S.V¥s_ Ig ; VOLUME VAL 1D 
3: Spe= iT3 N RERP 

"FORM= BIT ; {PORHAT 
5:0FF= BITIO 3 OFF’ 

. 2 Tl 
eprint Bite BELO 

*PIP= Tl I NG IN PROGRESS 
§.pSC= BITI4 ;DRIVE STATUS CHANGE 
.SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE B 
§.ICvLs BITS Beton CYLINDER ADDRESS 
-FUr : BIT? +B ee 

-ILF= BITS 3 Life 

"PAR= BITS : fect p DRIVE BUS PARITY 

- Skis Tio : 

*WLE= Til ;WRITE ‘toe 
S: Beko Bitte : 
3: = BITl : 1¥ OFF TRACK 
S:UNS= BIT14 :DRIVE UNSAFE 

.SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE A 

= BITY ; TRANSDUCER OK 


; 
:DOOR INTERLOCKED 

g ; INTERLOCK 
E 
RE 


10 
i Pane 


z 


eerie 


-SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B 
8: Ser rs Bite 
-WCLK= Ts chock AND NO WRITE GATE 
3: HOEL= Bi! et rE AND NO TRANSISTIONS 
= = 
> = Ts ec SELECT 
S.XERR= BITS 
“BI = T10 yi iethae 
* = uaF 
5 V= Tl NO MOTION 
S.LIMD= BIT13 init DETECT ON SEEK 
S.BRKE= BIT14 ; SERVO-BRAKE 


-SBTTL COMMON MASKS 


M.DRV= 7 ;DRIVE CODE 
M.PAR= BITIS : PARITY 


ERROR 
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ae | Fre NCE/OF FSET 


> 
ee 
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esas oR 


fetatetates 
bot bh bee bos bee Bee 
OD NOUW£ Wwe O 


Ss 


000000 


es 
= Se 


oO 
uu) 
ne 
B88 
Ss 
Psi 
ooo 


fu 
Oo 
o 
Oo 
o 


- SBTTL 


a RN Re 


RE: 
t 
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OCK ALLOCAT 
PARAMETER BLOCK ALLOCATION 
COMO eee TORE WO 
! ORIVE NO. 


ig 
$ SECT 
i 


ieee - mae Ress «C i: a OFFSET 
ae 


AND DRIVE OFFSET 


MU 
Moe cMOe cVMO 


rr 
£ 


i 36 






rrs500e 
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i 
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i 
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: 
i 
: 
i 
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PF T 
ASUcES TEESE TEES ES re EEE HAH REKEEE 
PARAMETERS PASSED TO THE DRIVER 


THE FOLLOWING DEFINITIONS ARE USED TO PASS PARAMETERS 


rt) te NUMBER 

s ; pel YLTHOER ADDRESS 

4 

> oes 

3 RK 

7 : 13 4 AND 17) 

19 : PLEMENT) 

14 : cid Ae INFORMATION 


PROGRAM DEVICE STATUS REGISTER DEFINITION 


Ee 
Dror DATA TRANSFER 
gp AR yacats 


t DRIVE STATUS He HENGE RID NOT CLEAR 


pevterteutertesten) 
Pipe 
4444444 
N&lWM-O 


| 


SRERESSI™B.BE OSTR, MONNE BURNEY BER TE el oe sro ovo 


CMDTO= BIT6 a a COMMAND FOR AT 
16 


= BER ic BH aaa OR 


Hi 

HH oe [a RESET 

Tl 

T14 NITIATION QUEUE 
100000 bran Is IT1s ae T ae 


-SBTTL PARAMETERS PASSED FROM DRIVER TO PROGRAM 
THE FOLLOWING DEFINITIONS ARE FOR REGISTER RETURNS 


\y 
| 
| 












; FROM THE DRIVER TO THE CALLI 
P.C 6 C0 : STER 
pe: iB gorens ae HER 2 
P“DTS= ‘DESIRED gysrer 
Pp = DES RED 
Pee & ;ATTel : Bi REGISTER 
c P. : si, 2 
3 P-BOD= ue ; ScAGe & a Status 05 
8? cos ihescace @ STATUS Of 
86 PAT: iMESScoe @ StaTUS 1 
P-B ;MESSAGE @ STATUS i 
P.All= 54 ;MESSAGE A STATUS 11 
: FEM e PEEP eri oboe xh 
pEPA = tec PA INFORMATION 
PRTCON=64 SPRINT CONTROL WORD 
.SBTTL PARAMETER BLOCK O FOR DRIVE 
00214 P : .BYT ; NUMBER 
5160 Boeiss ARNO: «BYTE : at os 
st 146 ‘Ber i‘ 6 ise - 3s 
1 14 BVT 0 : 
; t -BYT ; 
*BYT ; (BIT ie 17) 
t 136 . i (BIT 13) 
4 1 WORD 5 : ‘ STA f 
me oe eee Gf hale nt 
5it9 O0e1e4 “HOR 0 rf Taide eth 31 Re 
elle O02166 ‘WORD O Buse Br ss STER 
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TER BLOCK 


furufurururoro 
eee oe er ee 
bt Ss op bem be 
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Saisie © 
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De bs tes dt Pe be hb bb be eh be 


WMHS SEVKRZOV SB BBVER Lowes 
mt 
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fururururororurunorurorororurororu foro roruru furore roruru frorurorororororu furororuroro 
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S- 
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S93 PAGE 42 
ORIVE 






SEQ 0041 


OE STRED TRACK AND SECTOR REGISTER 


1 dla 
"Hie B Stans 


H yy 
pec tHe 8 Hs BE it 
: ie 


aster 


TOR REGISTER 


oP rearster 


parantae 
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| CZR6RC.P O02-DEC-77 11:07 ERROR POINTER TABLE 


B: 
DO: .ASCII <12>a8% RK611/RKOG-RKO7 USER DEFINED TEST #8<15><12> 


| Hts .SBTTL ERROR POINTER TABLE 
Sies THe. RronneT Ion 1S OBTAINED BY USING THE. NOES NUMER FOUND INO 
H Sed, NE RP RIP IE ah rover 
5153 - va ;;POINTS TO THe ERROR MESSAGE 
1 3 i OH 3;POINTS TO THE DATA HEADER 
ae mB LIBBINTE 18 HE BSIR ronnar 
Be 
77 
Hg 


@ 
- 


-ASCIZ /CZRERCO/<15><1e> 
-ASCIZ /TYPE HP TO PRINT HELP FILE/<15><12> 


2 /%/ 
Z TEST PROGRAM TO BIG/<15><1l2> 


frorurororu rurororurorurororuru 
PRP RGR DS perce wow 


NOROOM: .ASCIZ /SOURCE FILE FULL/<15><12> 


/=/ 
BADDEC: .ASCIZ /INVLD DECIMAL7<15><12> 
IVDEDT: .ASCIZ /INVLD EDIT CMNOD/<15><12> 


:..ASCIZ /INVLD NEW CMND/<15>< 12> 





ZINVLD LINE NUM/<15><12> 


- 
-_ 
<£ 
s 
= 
B 
= 
N 


ESRB RNS 
oO 
oa oa oe ons 
+ + + + 7 a 
ASTOR i tine, 
s oo : . i 7 
: 


IVOPAR: .ASCIZ /INVLD PARAMETER/<1S>< 12> 


Prn2on 


BADOCT: .ASCIZ /INVLD OCTAL/<15><12> 


POPoOrUrorare 
Ree ete 
NOU SOMUEH 


ule 
- 
<= 
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Be OINTER TABLE 
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1g 










+ 


a a ee 
ate'a 
AtAtAtAtaAt 





TOTMSC: 
041523 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


HPFILE: .ASCIZ /HELP FILE AVAILABLE ONLY AS FIRST COMMAND AFTER PROGRAM LOAD. 7<15><12> 


“NO OBJECT/<15><12> 
/COMPILE OK/<15><12> 


“NO SOURCE/<15>< 12> 


ZINTERNAL COMPILER ERR/<15>< 12> 
7INVLD OR UNDEF CMND/<15>< 12> 
“WORD CT TOO BIG/<15><12> 


ZINVLD CMND IN NC/7<15><12> 


ZINVLD DRV NUM/<15>< 12> 
ZINVLD ORV TYPE/<15><12> 
/PUNCH ERR/<15><12> 
/READER ERR/<15><12> 


(12>/DRIVE STATUS NOT VALID/<15><12><12> 


7=TOTAL MISCOMPARES/<15><12>< 12> 


MACY11 30(1046) -DEC-77_ 11:59 PAGE 4S 
SE RROR POIN 


ER TABLE 
oe 
1 IOBFSZ: .ASCIZ /7=MAX WORD COUNT FOR DATA TRANSFER/<15S><12> 
1 
i 


Bu3808 BADSEL: .ASCIZ /ILLEGAL REG SEL’D/<15><12> 


alee LPLABL: .ASCIZ /= # OF LOOPS/<15><12><12> 





ries LCNTOF: .ASCIZ /7# LOOP COUNTER OVERFLOW #7<1S><12> 
11 

O4 DMPHDOR: .ASCIZ /WORD # CONTENTS/< 15>< 12> 
047 
020040 SPACEG: .ASCIZ / / 





SPACE2: .ASCIZ 7 / 
DA a ge gy oto a + ee ammemna ce merenmeteinciate atta 
= Be 


i TABLE CONT He INTERACTIVE COMMANDS. 






natin deere ewow Tena eaty 


rururururorurufururuore 


s 
; #WORD TIVE COMMAND PROCESSOR 
310 ‘S Re TH COMMAND 
32 j #WORD 3 : eRe ASSOCIA Ep WITH 
53i¢ j#WORD 4 For ts EXECUTE ROUTINE 
gaits jNTHIS T IS USED IN CO st’ 
s318 on js SAESSEE Es eenuEOnEnOnneEenenDenenEeEsncnnensonesusseneesenenne 
g — ICTBL: : I A saws ; TIMEOUT 
44 1 — : . Aa ;DRIVE SELECT 
46 144 177777 000000 DNRTE,-1,0 " 
177777 oo0000 "HORD OTRTE -1,0 ~~ 
: 11? -ASCII 2017 ina ;OUTPUT TEST 
5 3674 1 ee Hote, Orne te INPUT TEST 
2329 0035 177777 00000 5° TRTE,-1,0 : 


os 


- ee eC; - =- eS 








beeen 


SPREADS 88 $8 OFFENSE, 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 





iui SERERPRARR A Sisaiaca di ucuyisulersttteeercra 


ee ewe - 


MACY ae te OF INTERACTIVE COMMANDS 
-ASCII /CT/ 
ooooc0 oa CTRTE,-1,0 
oooo00 , ISRTE,-1,0 
ooco00 , is Rte, -1,0 
ooo000 ; am FTRTE, -1,0 
ooo000 ; TE,-1,0 
ooo000 4 ; e TE,-1,0 
ooooco ; . Con RTE, -1,0 
oo0000 ‘ : RTE, -1,0 
-ASCII / 
oooo00 ; TE,-1,0 
ooooco ; PIRTE,-1,0 
— Bo oo 
oooo00 . NTRTE,-1,0 
ooo000 ; TE,-1,0 
000000 2 PRRTE,-1,0 
oooc00 . HERTE, ~1,0 
ooooc0 “WORD TE,-1,0 
ooo000 “BREN ,10,0 
320536 CSCBIS: . ; C$81,1, E881 
020204 ce C$0C, 1, ESDATC 
017610 9 ,3,ESSC 
o20026 “WORD  CSRC,3,ESREGC 
Oz0426 “BORD 2, ESR 
020446 “WORD, C$ST,1,ESST 
013516 ee csrn, ,1,ESPM 
021464 WORD | CS$UI,0,ESur 


5 Me ae Me ae OE ae ab aE a a a a a a a HE 


46 


;COPY TAPE 

; INPUT STRING 

; ITERATION COUNT 
;FORMAT SELECT 

;EDIT SPECIAL BUFFERS 
;SPECIAL DATA PATTERN 
; COMPILE 

;EDIT ADD LINE 

;EDIT DELETE LINE 
;PRINT TEST 

;PRINT LINE 

;NEW TEST 

; RUN 

;PRINT REGISTER 

; HELP 

;BUFFER DUMP 

; SUBSYSTEM FUNCTION 


SPECT Tag FOR GUFFER INIT 


STATUS COMPARE 
;REGISTER COMPARE 
;REGISTER WRITE 

; STALL 

;PRINT MESSAGE 
;UNIBUS INITIALIZE 


;END OF TABLE 
Prettitirittttiiiiiiiieter irr rr oo 


up TSRT: 
- SeTTh INITIALIZE THE COMMON TAGS 


;CLEAR THE COMMON TAGS (SCMTAG) 


AREA 


SEQ 004S 
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OMMON TAGS 


CZRGRC.P11 O2-DEC-77 11:07 INITIALIZE THE C 
g2m BRILB Buazes i BOK EARSTOGNG STEAK HERGIE TaD bg te 


001100 a Bae Hs foie d Eo atk POINTER 
b 


3; INITI 


c 
fi 










.: 5 
Ge IS Ce eS a eS ae one 
55s ees? SIZE. FOR 8 one "BEGLSTER, TE wor Eafe" 
SR es 2 BE Es ame 
Bsa aaa Retin Aer rir 
Bo 004234 64S: Rov Sees, (SP) + i BRON For TRAP Re 

000176 001140 65S: MOV SHR ;POINT TO SOFTWARE SWR 
eui0 Bt Beeb ad ian 66S: ey sbpseres EE in ;RESTORE ERROR VECTOR 
a 37 1 001706 


eae” | pare 
ie eae Wier 


Siow 


er r 
ho; OC 1 
U pare 001710 
0600.5 171 
DOE 
se 


BRR DGN 


eens 


a TWO P-£OR MAXIMUM WORDS 
5 ie nae 
RO, -(SP) 
2 tear sz CAB s cK 
Ey SH EST cone ” E Bh REE 
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Buus 


SRtRe SSB URRDR BSS SPR 


ya at at a at at a at Pee 
NERLORH BSB IRN ict SERRE RRR 


T04 
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-SBTTL COMMAND LEVEL ROUTINE 


Hes th FOR AND ee ee ‘Eeee Coat Le pf oes 
folic eer 18 THe RODRESS OF & SPEETAL 


RETURN TO Lev S 
NORMAL - ‘ cab 
ERROR - RY), R4 
5, 36 9 0 2 0 A a a a a a a a a 9 a a a a a a a a a a a a a 9 a a a a a 





JgR RY, DCMOPR Laie 
y 
en HPVLD | : 
ene npaocon ;T NTO, contin 
TTYIN ;TYPE LINE I 
a cr A 
RETO COMMAND LEVEL 
- RERSKEREREREEERRE RES RERERRRR RRR RRRR RRR RR RRR K RRR RREE RHEE 
PROCESSER 


=SBTTL DEFERRED Shr Bc OchD 
per Ri POINTI To I + Lome 


(R4)+ 
RY 


ERROR (R4),R4 


Pe enPTY 


ite ath INITIALIZED. 


: pov 
iy a ROG tl APH PM RE 
PAN oa Ga Re: 


CZRERCO RK611/06 USR DEFINED 
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DEFERRED COMMANDS INPUT PROCESSER 


*. Miaals NATOR hee s. a gt SOURCE Pre Corman 
Bis oat Dae a UA 


eTeerTTTITiTit iti iiiiiiitiiittiiiiiiteiiiiiiece rrr oeer Serer 
Pie EMPTY 
Y 


Fie oe 
BR F NOT <— TO SOURCE 


Re A ae 
ZEROS 
pr SOURCE FILE EMPTY 


ero RS SOURCE FILE PTR 


on Ti 


a 
mt 


ue 
= : 
- 

= 


1S: ecR tease 


ie re 
NOROOM T Ss 
MOV t + RS 
mov (5P)+°R T 
(R4), RY UP RETURN 
BR 55 T EX T 
3S: INC! LNCNT T 
mo L NT, (R5)+ TL IN 
4S: (R1)+, (RS) 
TSTB (RS)+ TEST IF LAS CHAR MOVED IS NULL 
BNE 4s F 
MOV SFPTR T NEW € FILE PTR 
MOV ( +, RS T 
MOV (SP)+,R 
TST (R4)4 RETURN 
SS: RTS RY URN TO CALLER 
; - REREKEREERAREEAR RRR RRERAR RARER RRREERRRRERARERRRAKRERRRRRRREKKEE 
-Sa1t * SEARCH BYTE STRING FOR COMMA OR NULL 
$i SR PC SBSCN 
is Rl POINTS tO FIRST CHAR OF STRING 
} #RE TURN 
ti RTS PC 
+ i WITH R1 NOW POINTING TO FIRST CHARACTER 
i AFTER A COMMA OR TO THE NUL 
H Tab shield +++ Sale \ahhalniaiahaiababaiaiaiahsiaiaiaininiaiainiaiaininicinininiainininininiiaisiainininiiaiaiaial 
WiLL:  .BYTE O 


KO4Y 
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CZR6RC.P11 orto 11:07 SEARCH BYTE STRING FOR COMMA OR NULL 
ee COMMA: .ASCII 7,7 
) SBSCN: 
1S: MPB (R1),NULL TEST roe NULL 
is HEB 
74 oO466S (R1)+, COMMA 


| 00137 2 BNE i$ Weel of oF Kor F NOT 
es: TS PC pe ee 
g « CERKKREASSSSERASSERRAARARARERERESRRRERERRE RARER RHRERRARRERRRESE 
-SBtT TTL INTERACTIVE COMMAND DECODE ROUTINE 
ICpEC 
Ri th 1 conTArNING THE RODRESS OF THE COMMAND LINE 
; RIS ERROR RETURN 
;* (R4)+ 
i k Ss RY NORMAL RETURN 


t SMHEN RETURNED R2 WILL POINT TO THE SECOND WORD OF 
j RTHE MATCHING TABLE ENTRY. 


a 
man -a me 
2 


ae 


HORROR RRS 
Bea ee oe Ee 
ooay 
28 





004704 seenee -(SP) ;STORE R3 
A ie — rr, cie 
? +O es ' 
Bee SICTEL Re a 
32 2 1S: cre OTR! ; 
2 ed mpegs 2s 
aS 74 ADD #10,Re ; 
BR thy 
an A ate i SimpoTOEXTT 
754 : TST (R4)+ H F RROR RETURN 
ee Bia HT RBS pete! ¥8 SSRECORE™ 
004760 4s: MOV (SP)+,R3 ?REST e 3 
ge04 004762 RTS Ry’ ?RETURN TO CALLER 
at) © PERG GGRGRRERRRRGRRRRRRE RARER R RRR RRRKRE RE RRRRRERKRRRRKKEE 


=SBTTL EDIT ADD LINE ROUTINE 


te “ISR R4, EARTE 


pe 
38 





¢ r 


PRONG. 


ee 
ONC US Wwtu-O 


saa RSLU TAURI NY ayes SS UICEMMA AAA ERE S EAS 


: 
uw 





0 RK611706 | USR- DEF 
C.Pill 


D 
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i eTHE 


LOY 
C-77_ 11:59 PAGE Si 
ROUTINE 


INE 
rors TO COMMAND LINE R2 POINTS TO 2ND WORD 
IN ICTBL 


R4 IF ERROR 


Ss 
RTS R4+2 IF NO ERROR 


ita ates PhaE IRS 


Belicg tag A ga 


HEDGE *PPRR THT Gs" cuEcheD Pon SUPRICLENT RoOR = 


EARTE: 


1S: 


SBSCN 
CMPB (RL MULL 
BE 


MOV RO, -(SP) ;;PUSH RO ON STACK 
Re; -<SP) Busy : ON Stack 
sk Re 3 Deseo Fl since PTR INTO RS 
BUFPT, e ART OF T BUFFER 
R RO ; ade oF us Be THIS CMD 
BLOS _ wie 
TYPE oe MESSAGE 
a a ey Q NEXT PARAM (LN) 


slap), Ey Se BP sane rer 
Na LAE ketch br irs IN RO 


8 ED ROD IN PRESENT SOURCE 
bx te a XT PARAM (NEW CMND) 


; 
; 
; 
: 4 ts (ERROR) 
R4, ICDEC ;DEC CHECK NEW COMMAND 
(Re }+ : T OF ICTBL 
(Re) ; TEST I 
2e% ;BR IF ero" T DEFERRED CMND 
RL CSP) ee fb Bes Re FERENCE 
N ; 10 L OTAL 
MOVE Ra LNCNT :$ of SEP 


;STORE RY FOR REFERENCE 


RS, RO 





—— | 


| 
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EDIT ADD LINE ROUTINE 









_— ie (RL )+ 


Reh Can TO DETERMINE HOW FAR TO MOVE SFPTR TO ACCOMMODATE 
LINE & MOVE OLD SOUR MAKE ROOM 


CE TO 


1fo Re FOR LINE 


} ; 
1 4 
ie he Re : Mths por 
1 1 001246 MOV SFPTR ;STORE NEW SF NE POINTER 
146 1¢601 MOV (SP)+,R1 ;REC RI INE PT PTR) 
1 il 11S: MOVB -(RO);-(RS) : i 
1 101 il : T ™ ° 
185 tc] 000001 ts tt®o,Ra ites IF 1 Last CHAR MOVED 1s 
i 062700 oovo02 BOB Ce ROVE NOT Past INE NUM 
i 1 MOV R Re Stated a E 
12S: nove (RL), (RO)+ ; NEM NT SF 
i TST (R1)4 ite I 
1 1 BNE les 3NOT DONE STORING Cond, LO LOO 
ie i fe i pas 
920537 001246 cne RS SFPTR ioe rite, EXIT TEST 
MOVB F (RS)+ Bae trees 
3 002512 20S: fre 388 c ; 
002532 21S: TYPE pT ;TYPE INVALID EDIT 
oo2ss4 228: PRE yOROD ; TYPE INVALID NEW COMMAND 
1 002575 VOLN ;T INVALID LINE NUMBER 
bits 4 $28 tf) re + ERROR RE etaN 
308: TST ?Ras 
012605 ‘ (SP)+,R5 ;POP STACK INTO RS 
12603 nov (SP +, R3 tt POP TACK IN INS fe R3 
Biseai i Mi 30 
03 1 90 nov {SP)+, 3;POP STACK INTO Ra 
ih (wastes 
ae H hare Se 
715 
2716 ts Beer R COMMAND LINE (THE EDIT 
e717 i ca a TBQENTING TO THE SECOND 
5726 is HRB Se ers Ro PRROR. 
55? $#THIS ROUTINE ae REMOVE C Fue Cc BF CNRTED BY THE 





Sereraerarerytyry 
TTF 


NOY 
RR mice 1708 ee i MACY11 eT coat Oe Lapsed NOY $3 SEQ o0Se 


jp HLINE NUMBER NE . _ THE REMAINING 
LRCOMRANDS Be Sia cerita ORMED: 


ise: SouveRye ieee LN EXIST Gael lee 


B 

# 

ja. SF BY MOVING REST OF 

e 
45. ger WHILE MOVING COMMANDS. 
5x6. BNO STORE P INTER NEW LINE 
He 
3% 
3% 


ROUTINES CALLED 
DECBIN 


o:% 
3 a6 369696 96 96 38 6 9 9 9 0 0 2 a a eae 
EDRTE: 


geese 


+ 


o- 
o 












MOV 
JSR 
iS 
MOV (SP +, 83 : 
MOVB = LNCNT H 
BIC al 7400, R2 ; 
cHee Re, RB : 
MOV ; PT.RO : 
Is: che (RO),R3 ; 
ch 25 S=PTR ¥ F 
1 ect : ) 
2s: ist B &R 0+ ; NULL 
3 BR i$ ; he oft eae LN 
765 ; IND THE 
; Rar aOR 
7 ; 
3 
70 0 H F 
: ne : ie Catia 
70 43 001246 MOV CPPTR Re . T-souRcE SHE CK ExT — 
74 b260n8 S$: CMP RO, Ra" ates F ND OF SF 
7S 76 i4 Q 7 F YES, END MOVE 
2776 0054 105310 DECB (RO) :DEC THAT LN 
2777 OOS4O0e 112025 6S: MOVB (RO)+, (RS)+ :MOVE BYTE TO OVERLAY LINE 





RE SRL Ed Pe so os 
am - fERG OF THAT t 
901 7$: MOV el ae 
an ;SKIP F 
oo0001 001234 BI #1, SFEMP : 
8S: che (RS)+ ; 
’ a 
(R44 
002532 20s: TYPE aye pT 80.7 _ are T MESSAGE 
002512 218: ire RODEC ; TYPE BAD DECIMAL MESSAGE 
css gat: Rice itt, ERUPTUMURAR RENEIMRER reser 
ny Fae He Fe fies fe MO Ba 
HOV (SP 3+) BE BY MO Bd Ro 
RTS Ry’ pea #0 CAL 


a, nt CE oa ee 


+ TRY: ' J ROUTING PTRT 
{RETURN Ri POINTIN ‘\ COHMAND (ER NTE 


;#THI une Hf as A yee 
; eee ee Speci TED 
ee 









1 
gece is DECBIN 
3g Se SE 6 6-6 0 0-0-2 38 3 9 9 9 0 0 0 a a a a a a a 
PLRTE: 
MOV RO, -(SP) ;;PUSH RO ON STACK 
MOV R1,-(S5P) ?;PUSH Ri ON STACK 
MOV pee ) ii ON r $ 
MOV RS -(5P) : ON 
001234 TSTB SFEMP ites IF ANY SOURCE CODE 
28 BNE 225 44 IF NO SOURCE 
2g 737 OO4666 ISR PC, SBSCN : BUMP Rl TO NEXT PARAM 





CZRGRCO RK611/06 USR DEFINED 
CZR6RC.P11 O2-DEC-77 11:07 


031314 





MACY11 30(1046) O2-DEC-77 11:59 PAGE SS , 
PRINT LINE ROUTINE Ng 


TSTB (R1) NOL IF NUL 
BEQ 


MOV (set Ra ee . ° tf VERT 
B ee SES ONOO, RS ; Lek ITS 
sit Ce a AS! 25 YRLAP bang A UNBER 
« ge Ee Ones 
_ 28: ba ‘is ce Re 1 negara LN) 
Br IPG ML. heck"GF SR "En 


ae Gero, gp phat ROLL 
SS: ene ta Beate FINO NULL 


ED LN 


3S: CLR -(SP) AR, NEXT ST 

Weps (RO)+, (SP) Me LI ON Ne tack 

; 

nov AGES. Fite cee ADDRESS 
6S: 

ie tage” Type, cong seu 
20S: TYPE a c pod BAD DECIMAL MESSAGE 
21S: TYPE aE YOUN ; TYPE INVALID LINE NUMBER 
cee: eT FRET UPP RUHR 

‘ Mov (SP)+, RS Pee STACK NTO RS 
tJ 
BY ER Ue HA I 


s Oe gue ae cara paiement meinen aerate et 
FéSTTL INT TEST ROUT INE enue 


iS |saITH A 1 pomNTatg TO CORMAND (PRINT. TEST T) 


R Ry +2 NORMAL URN 
iS ruts ROUTINE WILL PRINT THE ENTIRE CONTENTS 
;*OF THE SOURCE FILE. 





(ry RK611/06 USR DEFINED MACY11 30(1046) O2@-DEC-77 11:59 PAGE S6 SEQ OOSS 
CZRGRC.P11 02-DEC-77 11:07 PRINT TEST ROUTINE 


BROUT ING. ALLED 


mf T 
MOTT II iiiiitiiiitittiitiitiiiittiiiiiiiiiiiiitiiiiiieeriirirer © yy 


PTRTE: 
RO, -(SP) ;;PUSH RO ON STACK 
001234 Toya ” + SPURNS LY 80 
we BNE co iE XIT 
Bisse HOV EPRr EAS : i" FICE Pre 
3S: CLR =(SP) ; s 
n (RO)+, (SP) ; INE NUM ON STACK 
002510 T EQSGN E SIGN 
005742 MOV RO, 1S T UP ADDRESS 
1s: WORD Pen 
001171 ; T RLF IAGE RETURN 
2s: TeT8 tRooe vee gone 
BNE 25 + TF no FC OOe UNTIL NULL 
CMP RO,R3 af IF LAST Ine PRINTED 
i F PBs URN 
ess TO ce EXIT 
003007 20S: TYPE NOSRC : £ 
aa MOV tR4),R4 ;SET URN 
j MOV (SP)+,R3 ;;POP STACK INTO Ra R3 
Vv (SP)+ 
RTS Re’ RETURN 
er eee a eee Be 
Fe Seek RON PTRTE 
i WITH R1 POINTING TO COMMAND 
iH TURN: RT RY E T 
ane RT R4+2 B AGC RROR RE URN 
ity TINE rT FORMAT (24 TAL) THAT IS T 
iit aoe ED ORT phe SussystEn COMnANOS. ALL  COMMBMDS Bee BE EXECUTED 
We echt aoennnsatnvitohesibeboesssspeonqueunesonsenseonsousans 
004666 ttRTe: q pc SBSCN : T PARAMETER 
TB (RI) ; TEST NULL 
fr | coi 
000077 , MPB (R1),#"? ?TES I 
001212 HOV FoRnaT, -(SP) }ELSE GET si FORMAT STORED 
001171 T SCRLF : 
BR 2s ;GO TO EXIT 





——— Ee 





bb 


& 








1 002640 





MACY11 


1:59 PAGE S7 
GANAT SELECT ROUTINE oe 
18: MOV R1,-( ;PUT VALUE FOR CONVERSION ON STACK 


JSR PC, OC BIN 
20s RROR RETURN 

Vv Con} FORMAT tone a W FORMAT 
2s: TST (R4Y)+ 


20S: MOV (R4) RY 
TYPE BADOCT PRINT ERROR SSAGE 
30S: RTS RY 
33 ee ae a 
Sei thy; TE 
if WITH Rl POINTING TO COMMAND 
; #RETURN RTS RY ERROR R RETURN 
im RTS R4+2 TURN 
;#TH IS ROUTINE WILL CHANGE THE TIME OUT DELAY FOR SUBSYSTEM OPERATIONS. 
SaUAGNaENsAnGNnASSEx Gey SOx iENuAvONOEOONAESYESTERSENEESTOSENE 
+ORTE: R pcs PARAMETER 
Q : xT T OUT CHANGE 
cna tRi, a”? Hh T ic ADR 
MOV »7 (SP) >GET ~TOVAL TO STACK 
TYPOS ?TYPE IT 
ty 1 RLF 
2s: MOV -(SP) : UE FOR CONVERSION 
JSR Be! DEeBIN : a etiae 0 BINARY 
MOV (SP)+, TOVAL > ST. 
1S: ret (3033 : ORE OOD RETURN 
20S: MOV CR4) RY ;SET ERROR RETURN 
nme TYPE BADbEC j TYPE REScAcE 
agtat Saree nongen compe eaueine nts nneeresseneessennessn 
jRENTRY INTING FIELD IF DN 
is : ee soe wee BO RAMETER IF 
j ERROR 2, RM 
>#NO ERROR RETURN: ee (R4)+ 
H RTS RY 
jATHIS Errieo. “Pr the “ne PARAMETER Y STORING 
poe at TE BL must PO Int 19 HE COMMAND 
ELD ¢ COMMAND PARAMETER (SF). 


} RROUTINES CALLED 
#OCTBIN 








Cc RK611/06 USR DEFINED MACY11 30(104%6) O2-DEC-77 11: 59 PAGE 58 ? 
| Eran Pt G2-DEC-77 11:07 DRIVE NUMBER CHANGE ROUTINE sespe ag 
-& 
: #SBSCN ‘—« | 
DOE DNRTE: 
DOE MOV R1,-(SP) ;;PUSH_R1_ON STACK 
DOE J pC SBSCN ; Rl TO NEXT PARAM 
DOE TSTB cRI3 7 st PARAM 
BOE Q is : pR VE CHANGE EXIT 
B06 cree (a1), 0"? ; TES a STION 
ce IVE,-(SP) ;GET IVE NUM TO STACK 
; T ;TYPE I 
T \ RLF 
4S: MPB ¢ Ri), 8", sTEST IF ENTRY 
BEG I TF me CHANGE EXIT 
Jor M OGTBIN ies oF 8 , 
DRIVE ; 
(8p 35°93 : ee bet ovate RoRIVE 
1S: i (R4)¢ ite 
2s: TYPE 388 T ; TYPE INVALID OCTAL NUMBER 
: TYPE PR NT 
235: MOV tRaoe AM ERR SR RETURN 
; (SP)+,R 53 STACK INTO Ri 
a ea it 


BETTE ITERATION COUNT CHANGE ROUTING 


‘ -SBTTL ITE 
a 


a Ri Praia Tall INPUT COMMAND 


eee et 


SOO Se ee ee ee ese eeee 


; SHSHELLLSLELELLLLAALLLLLALALLAELELELERERARELAE REARS RRSLE REE 


rcRTE: 1, 7 ee IES 7 NEXT PARAM (IC) . 


Slo Howes HEMP toe mee 
BNE F P 
MOV CNT, -(SP) er af I TION CNT TO STACK 


SAUBRAU SS eas E582 Somer SERO RD 





; SCRLF 
2s: Rov 1,-(SP) ON STACK 
: JSR PC’ DECBIN CONVERT, T 7 10 81 BINARY 
3057 20$ 


GOS 
GSRERES Pal’ OS-bec-97 Iisb7"°Y** SPtERAPion GouNT CHanae Routine 


ere 





001232 


002512 


ooooco 
100000 
001702 


oooo00 
001702 


SEQ 00Ss8 


1s: TY yg T TOUT eer NORMAL RETURN 
208: MOV 2B) Rw ;SET_UP RETURN 

protec ; TYPE DECIMAL MESSAGE 
30S: RTS RETURN 


3 RIRERRSHKEKEREMESE SES a ee ee 
sorte SPECIAL DATA ra 


fre =f ees 


jERETURN: 
SS AND STORE 
ons BY 
Beas 
IT AO). 


Le Mg 
a 


tee s 





oe ae ‘ 
; 
Haru i TURN 
is 

ee en en ere 
Ayeeey -WORD 0,0,0,0 
EBRTE: BIS 116, TEMPA ;SET FLAG FOR EDIT BUFFER 
DPRTE: EMPL i attr EDIT BUFFER FLAG 

MOV RO 


Tek 


(SP) ;;PUSH RO 

(SP) 33 

(SP) 33 

(SP) 33 TACK 

(2p) ti on Tek 

JSR ; Ri T PARAM (PAT NAME) 
me SBP enor RP as, 0 


BRANCH TO ERROR 


Q 

CMPB jTEST PA 

BNE 1 

MOV TX,R3 iUtrn” 

BSB 8377 , PATXDF 595 pale PA HITCH 
CMPB 

BNE 

MOV 

B1SB 


SO EAN 
(R1),@’Y 


;SET PAT Y DEFINED SWITCH 


ce mc 


CZRGRCO RK611/06 USR DEFINED 
O2-DEC-77 11:07 


CZRGRC.P11 


99 G9 G9 GI GIG) GI GIGI) GIL GO) GIG) GI) GG) G) GI) WW) GI) LD 
Be ee ee ee a ee ee ee ee 
BBLERPERA BIS VON PON Sse xe ns 

Wis 


Po bn Re bh bee ee 


DONE LO ODO VEU Ee O.bw ITT LOOKS 


DWWWWWWWWWW WWW WWW) WW) WII) 
Te ee ee ee ee ee 





MACY 1i Wii sau > 
SPE 


Bre 


GeRaeSee ae ay Bzaee ROSS emsoromeataeTS 


BeRa 
DO 


aR899 


HOS 
11:59 PAGE 60 


02-DEC-77 
CIAL DATA PATTERN ROUTINE 


aa ; INVALID PATTERN NAME, ERROR 
By ighhtaor eh Ea 


1 
P 







Bh oct) IN een 10 ocTA 
ee eae ES 
feBSe fis Si hem OF BUFFER LENGTH 
Eins. RP Be 
ag 3L 


ser Tor 
at gga 


WHEN NULL (CARRIAGE 
iad 6& ASCII INPUT 


J ION BUFFER (CVTBUF ) 
3 a SSneECUTIVE 


1 


Pee 
4 Teh. 





PE SBSON ‘BUR Le ITCH 
© sue 


Phe EER en! SuTTOH 
CR ITCH IF 
cc RT 


; 
; 
: 
; 
; 
; 
; 
5 ; READY, 
; 
; 
; 
if 
4 
3 
Q 
; 


ae Nt Beles 


aa . ark: ESP BONE 


RY. ab 
11% ed In" T WORD. 60. Fo CONVERT 
RS N PAT STORE. IF NOT, GO TO 
#’°0, (RS)+ CHECK 


ESRERC. PII 


=3 


SER LGN LE BBIERPER— BIaNoarz 


ae bs Be Be me be Be Be be Be Be bb 0 be 





a 


RRR RORONRRRRRNAS 
WONT £W-O 


at 
Ewe 


11:59. PAGE 61 


ses OF iio7  ACVN) SEERTAL DATA PATTERN 


Bvrer (SP) 


ane 


S828 280RIRE 





+ 


; TYPE INVALID PARAMETER 


OCTAL CHARACTERS 
nM FOR RETURN 


Pop Stack INTO Re 


z 


B23 


3 





af seuss ES 


Rvs ie aa Rl pol od COMMAND 
ae sn 2 
eee re 


= TRACK AND SECTOR 





Y AND OFFSET REGISTER 


conoaaseane7ee® 
eae 


SEQ 0060 


Cc 
c 





O RK611/06 USR DEFINED MACY11 30( 1046) hd: SS PAGE 62 
“PRINT REGISTER ROUTINE 


-Pll Oe-DEC-77 11:07 





INT REGI 
; PAT ECC PATTERN REGISTER 


cad’ ca cf®  PRIMTENEREE REIN § 


14 SBSCN 
rriiiititiiitiiitiiiiiiiiiiiiiiitiiiititiiiiitiiiiiititiiititey 






PRRTE: 
Pe’ SB5CN Pal 10 Next P PARAM (RN) 
(AL), 067 T sie Taree FTE USED. ERS a enreen 
PC, RGDCDE REGISTER 
URN 
ue: ieee Be $s OF STRING FOR CNVERSION 
a Sieh mvieaer "ene 


hoe sBaugeBLP GRAS 


i co ice ea Be 


SHIFT £9 adits NDEX BY 2 

se Sf ) PUT ER CONTENTS ON STACK 
SCRLF if ve LINE FEED 
tR4)¢ 

20S: T seo ocr MESSAGE 

B48: BAD ISTER SELECTION 

; (SP)+,R3 -POP STACK INTO R3 

Ry” i. 

r Seer tHe ONVERT REGISTER NAME (ASCII) TO REGISTER NUMBER COCTAL) 

Sart CONVERT ISTER II) TO REGISTER NUMBER (OCTAL) 

te WITH RI NTING TO THE REG NAME 

pa RTS TURN 

l# RTS PC+2 Re URN 

3% WITH R3 CONTAINING THE REG NUMBER 

8 

9 


& 
REQUIRED 0. Se SELEET "Whe Rects STER. 1S PES CE TAL VALUE oS BtaceD 


iscbE: CMPB RIDA TEST IF FIRST CHAR IS A 


kéoc CMPB (R1),#’A ;TEST IF FIRST CHAR I 
BNE ‘ IP 
MOV #7,R3 ISET “FOR ASOF 
BR 40$ :GO TO EXIT 





KOS 


Garere: pall snane SEED MACY a Oe Oe Tee hand ikecIti TO REGISTER NUMBER (OCTAL) 


















007¢ 121127 000102 1S: CHEB (R1),#’°B ;TEST IF B 
507100 Ole703 o00002 MOV 83 
“ j 121127 000103 2s: enPe Rb), ac ST Tat 
Re BO tab et euNe Rl ect te THIRD CHAR IS 1 
5 cur eer FOR cSt 
“ 1 3S: HOV he R3 ;SET FOR CS2 
- i SS: cnPe (R1),#’D TEST IF 
DO? 14 INC haa ee 0 2ND CHAR 
007 150 CMPB (R1),#’A :TEST 2ND CHAR A 
“ 18 FOV a3 ,R3 ithe DA 
ue 1g 6S: cNPS (R1),#°S EST IF 2ND CHAR S 
OO HOV R3 ;SET FOR DS 
i 7S: CMPB (R1),#’B ;TEST IF 2ND CHAR B 
FOV 8 »R3 ;SET FOR DB 
8S: mov 810,R3 ;SET FOR OC 
9S: CHPS (RID, we ;TEST IF E 
HOV 86,83 ;SET FOR ER 
10S: cNPS (RL), 9° ;TEST IF M 
CHPB a ;BUMP RL Test Tr SRD CHAR 1 
Rov #13,R3 ;SET FOR MRI 
11S: cHPS cR ),#'2 ;TEST IF 3RD CHAR 2 
HOV i 6,R3 ;SET FOR MR2 
ik 12S: MOV #17,R3 ;SET FOR MR3 
if 37 138: EMPB CRD, WP TEST IF P 
D0 i r ay sits 1 ;BUMP R1 TO 2ND CHAR 
nue lg e11e7 000117 CHEB (RL), #°0 ?TEST 2ND CHAR O 
Oe 85a Die ’O3 O00014 nov #14,R3 ;SET FOR POS 
O87 Die 03 000015 14S: mov a18,R3 ;SET FOR PAT 





- ee C- -_ = a 


ae prin Be-bec-9F iiso7 | CY1) SOGNVERT REGISTER Tend BPA REGISTER NUMBER (OCTAL) =e Cae 


1 000127 ISS: CMPB (RI), 8H ro cauES eter! 
000001 nov abe" ‘Bey Pon He 
B07 + By a(SP)+, (SP) ;SET ERROR RETURN 
907368 Dee7i6 ooo00e2 40S: , (SP) ;SET FOR GOOD RETURN 


ne ne CE 


" 
* aes TI 
a 
te Y T 
gs A nah oleh, comeres 
* ROUTINES CALLED: 
4 
_ tactile Tritt ihe si inthe en 
001672 HPRTE: TSTB HEVLD ;TEST IF HELP FILE VALID 


2s: rst tk + ;GO0D RETURN 
1S: sfPOATA :TYPE HELP FILE 


St Mu test ROTI 


58 
SR RY, NTRTE 
OT ORIN: The COMLEV (RETURN TO COMMAND LEVEL.) 


a PRTC Br 
SRP 1 ea ult ie RENT tl ze. 


: ROUTI 
Ab a AE A ab ab ab a a a a a a a a a a a a a a a a a a a a a a a nak 


1 saneni 
rh BIEN 000377 001234 Rey Re, (SP) ta cra page 
CLR 
se flee ne Yar ST SE Fit rons 
105037 
fr) 


: Pe a 


SFPTR,R3 


Cro toorrcpaecervescorwve 
gi 
a 


3393 





oe ee -_ -- 





yl oe USR DEFINED MACY11 30(1046) O2-DEC-77 11:59 PAGE 65 SEQ 0064 
| CERERC.P O02-DEC-77 11:07 NEW TEST ROUTINE ; 


| Mov MAXWDS, RS 
| parse BAasg3 001700 1S: CLR (R3)+ ;SET UP REGISTERS 


tFILE 
SZE,RS 
OFPTR,R3 


ee 
on ee we SEL oSSBLY FEL 
Un he RS 
sgnpe eet poeta serve 





3409 
i “" 
a ae Oe tea 
1g jideeeenanaenevaunstavusvoeneustusnannensnatacsaraearatianaeiees 
1 MOV RO,-(SP) ;;PUSH RO ON STACK 
oy ett) PUB 
a ee ae 
is ’ 
F ay 4 a cs Np Beoptotees 
Hov PT,R3 IESE. PADDRESS OF WRITE BUFFER 
Be es: tare «eR ax esr F specia BUFFER x 
OV SPATX,R3 ; + PAODRESS OF BUFFER x 
3S: CMPB tRi), wy a I FER Y 
RV aeATY,R3 % = Gt? ADDRESS OF BUFFER Y 
4S: CHEB Gp .'2 ; EST FER 2 
no HOV es 7Z,R3 ; SS OF BUFFER Z 
Mus: NPB (RD, 8°H ag IE PPPOE RUE yr 
a By Hpaeno Br gileet Ce or oar as 








~~ oe 


NOS 
SERENE BONER, TSB ge Eire 11 Pe 
004666 


SS: SR pc SBSCN ;GET_NUMBER OF WORDS PARAM 
6 ee TEST F ri 
ued Tat fia sf Use. UET HORE CREEP onc) count 
5S (Of HOV »R1 LSE SET TO Re TIN Ree 
M57 Oo 001206 BS: HOV NT,RL ;GET WORD COUNT 
3 OC 7S: MOV -(SP) ;SET TO CONVERT PARAMETER 
ma a 031160 JSR Pa! OC TBIN : T 
res PY es my tgp em ;STORE WORD COUNT GIVEN 
; Dt R ’ 
HES OC 903465 eRe ;TYPE DUMP HEADERS 
M66 OO 9s: mov b4,RO_ tak BOF COLUMNS MINS COUNTER 
W ms 
465 003530 10S TYPE” E2 S 
' MOV thane (SP) TO 5 yee 
a eee pe 
pe RI R OF WORDS TO TYPE COUNT 
74 Q § ; “0 "uae sou 
7 1 7, 04,00, 1VBE FORK T SPACES AND NEXT COL 
001171 RLF ; ART NEW LINE 
, 001171 ius: Free RLF CARRIAGE 
aC oy tR4)¢ ;SET UP NO E RETURN 
3g 002640 20S: YPE Bgn0cT ;REPORT NON-OCTAL PARAMETER 
002616 21S: YPE ivorar ;REPORT INVALID PARAM 
s ag: Mov tR4), RY ;ERROR RETURN 
J 7 Mov (SP)+,R NTO R3 
466 MOV (SP)+, Pop Stack INTO Re 
MOV ri +R 4 TACK NTO RI 
: Hoy & +; : POP NTO 





3 2h Ag penne epson nee 
NTRY: — 
is TURN: RESET STACK UMP TO COMMAND LEVEL 


THI CKS T 

EELS RES Ui ie tobt ate TE JS fe lure 
ibs CLEAN OF ACK AND F CUTE THE E opsecT € CODE. 
IF THE NOCK x ButTCH Ie OFF THE ROUTINE CHECKS ne Conn en 
;*ERROR BIT AND VE INTERRUPT BIT (BIT 15 & 14 OF CS1) 


aaa 
REGU OHV Lowe ou 





bat 


avERt 


sceboat ing BS JUMPS 


LOces: 


1S: 


4 


SRygeaaRReaR 


[+] 
ms 
+ 


ean 


ere 
ADD 
Cc 
Fyre 
BR 
IT 
BNE 
JSR 
MOV 





piptaatinggnataniires os 


BOG 
VSR DEFINED, MACYI1 30(10¥G)_ O2-DEC-77 11:59 PAGE 67 


ay 


ints bet 


"BOES A JSR TO THE 


ay E ITERATION 


UNE INES) tHe apes NE RESETS 


;CLEAR LOOP COUNTER 


1_¥ VAL 
ST T VAL 
TY 
1 RODRESS 
©) rh RR OR DEV INTERRUPT 


> 1 Etone ort : Bi 5 cs2 
COOP VALUE 


N Ty PSUEDO LINE COUNTER 
tCOOP ON Teer? 

;TEST IF ERROR FLAG SET 

;TEST IF LOOP ON ERROR SWITCH 
;NO LOOP ON ERROR, CLEAR FLAG 
;ADD ONE TO COUNTER 


tTEST IF TER OVERFLOWED 
LOW WARNING 





| COE 
| Gpenc.Pil Gs-bec- or ire MACY11 30( 1046) es 11:59 PAGE 68 SEQ 0067 
3$6e 010256 005037 001116 


L oF eee a RS bre ae TEST. Ir a 


REET: fhe an, 8 18 SEP ABE 


x 
se IRN nO 





Ss 





4 re ee FIRST Is 
x He eerie te Cee Tae 


F tt f oe NSERTED 
: nhs ee iF 
: SUT TeS etic a cobeitE emo PL rs ser 


‘ates Hae oe coe ibGe PGE fbf? 


RETURNED TO @ COMMAND L 


REEReRaRaRRIONS 


RR 
38 


2 


i & & ROUTINE? © CALLED 


ICOEC 
REQUIRED DEFERRED COMMAND PROCESSOR (C$XX) 


atatetitetal 
Ob oe ee ee 
NOWUCW- 





a 


CZR6RCO RK611/06 USR oF inde MACY11 30(1046) O2-DEC-77 11:59 PAGE 69 SEQ 0068 
CZRGRC.P11 O2-DEC-77 11:07 COMPILE ROUTINE 


Keamdiih ._. wesiarmrn SHLESE LALA SLLALLAALAAALARLAERARRALAARKAKLEEE 










ig 
| B CORTE: MOV RO, -( SP) 
| Ba { 3} 
a PE, Bae 
5 ike ie Be ob. cen 
=u 18s ‘ 001245 is BE SBSCN pal PReereTER 
13S ‘ TB ig ; 7 is GIVEN 
=e HES a ¢ 1,8’, yates = 
| 3 Ha 00124s ay i mer ee es next Serna 
Bh: ae ea 
! 18: 4 Rs i+ es FILE 
ees Bie ’ CT INDICATOR 
ee tt thes, ihe 
eee iC ~_ Rov ie ov. Me Se THIS LINE SOURCE 
36 58 ig Ra rcpEc ; DECODE vrata COMMAND 
eee ts R4, a(R2) pTUME TO COMMAND COMPILE ROUTINE 
66 ig ' 3S: rs! {Ri)¢ fee ron 
5 cn ‘ LNCNT gone are gst LINE PROCESSED 
1 001702 , TEMP ; E TILE Bresson 
5 ee ie are sre 
70 a os te :S Ss - if XT LINE 
o1 ~ Ee Ebee 





CZR6ERC.P11 


_ CZR&RCO ic 1708 en Or ie 






SERRE cb aa a 


WWWWWG) 
SEES RAREAERRRAE ERE 
Dw WON Eun Be 
WONT UC WOW 
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Tne 11:59 PAGE 70 SEQ 0069 
OMPILE ROUTINE 
MOV RT (RS)+ ;MOVE RETURN TO FILE 
Sour a Set et Fit balers 
TYPE , COMPOK ;TYPE COMPILE OK MES 
35S: 
+ ° T! NTO RS 
HOV (3p)4! Ra as. TACK INTO R4 
mov ( +, RS ;;POP STACK INTO R3 
(5P)+°R 3;POP STACK INTO Re 
MOV SP)3°RO biDOe STACK INTO RO 
a ae iBETUp RETURN 
# 
238: te 487086 ; TYPE MESSAGE 
20S: YPE abosRe ; TYPE NO SOURCE MESSAGE 
21S: re NTERR ; TYPE INTERNAL ERROR 
228: YPE : OM TYPE BAD COMMAND ERROR 
*(SP) CLE 
Rove (R )+, (SP) if INE NE NUMBER Here STACK 
T EQSGN :T 
: gue RE gt OF BAD LINE 
corel © RO, 40s 1 POPE BAD LINE 
ives a7? CSERR 5 yee a 
pees , : SS NEXT COMMAND 
. 5 AEE NN REE TET MEOMND PROCESSOR ROUTIS 
SLOP a, PROCE Rese ORD COMMANDS ARE 
: a — - RS isxx WHERE XX IS THE COMMAND MNEMONIC 
; : 
: R RY FOR ERROR 
iS ey 8 RY+e2 FOR NORMAL ETURN 
fe age POINTS TO THE COMMAND FIELD, 
ee Wk ae wet 
Hao ars O THE 
ps - CONSIST pee CIFIC SUBROUTINES 
4497 OCTAL) 
ireaories TIVE R ERO TF Oe arb ite TO 
 ¥THIS Hes! ANE Ractive 3 DONE TION INTERACTIVE COMMAND 


CZR6RCO RK611/06 USR DEF 
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3 
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DEFERRED COMMAND PROCESSOR ROUTINES 


EE TE AONE AGS R TEETER, come 





TURN Ts RY’ ERROR RETURN 
RT R442 NO ERROR RETURN 


; JSR. _R4,ESPM 
is <MESSAGE> WHERE MESSAGE IS UP TO 20 WORDS 


TSE NMUE GEE ES, Coot te Sart 2 ae oO 


M6 HE HE AE GE 0b a aE aE SE ab aE a a a aa a aaa aaa aaa aaa aaa a a a HH 


CSPM: SBSCN 
Teta | CRIS hast 
BEQ ; ( 
MOV (RS)+ i 
CMP (R2)+, (R2)+ H ye TE BOOR) 
is ov, Re te - 
. BNE a ; MOVED NULL? 
T #1,RS : 
Re Ss ee ar LOCATION 
2s: fe “ik i ) r Hie NULL IN SOURCE 
RTS RY ise 


=P 
; Ruse NORMAL RETURN 


°% 
:#OBJECT CODE: 
:% JSR RY ESRC OR ESRW OR ESSC 


* a 
j URETURN: 


see e-news eee ~sheneeensnstennestnee— 


GO6 
ESRERC PTT OS-bec-PF Tico CYTE acid fee COMPARE, REGISTER WRITE, AND STATUS COMPARE PROCESSORS — oe 
He scaTER 0 vn Ue on vALUE 10 BE WRITTEN 


peat rent HAS ‘ae ONE FOR EACH 
meio Fle PROPER EXECUTION ROUTINE 


3 bia oe i ee Selle PB 
3532 ee Bfba Hicks S8"Gn TT ALUE Ee sore. THIS MEANS 


VALUE IT IS CHANGED 


tte REGISTER ASSIGNMENT IS: 





AND OFFSET) 


Pett teint tt 
DMDMDOMMMMMOom 
ae ae fee pe fn he fe pe pe OE - = 


NOU LW 





THE STATUS WORD ASSIGNMENT IS: 


7 EINE 8 b8eb 8 

PaGt 

| HTH 
L 


gj, Be Se He BE Ab a a a aE a aa a aa a a a a a a HH 


OOS SS SF SESS Se Se SF Ss SF Ss SF Se St Ss SF St SF Os SFOs Se we eres ee es 
MITT IIIT ITT TTT TTT TTT TTT TTT 





seRtRATER CRUE UOTIUNS 


10734 01 001702 som MOV aRE TEMP 1 E RW PARAM BASE 

i me erate 788 HOV ae, TENE E NUMBER OF Pann 

1 i 001 1702 CSRC: MOV TEMP1 RE RC BASE 

1 poa583 17 Vv EMP2 R R 

1 a0 ” BR Sachs: : H TO OE BHNON RTE 

1 12737 001216 001702 CSSC: MOV TATRD, TEMP1 RE SC 

010776 012737 000003 001704 eames MOV #3, TEMP2 ;STORE NUMBER OF PARAM 
3841 O11004 010046 * MOV RO,-(SP) ;;PUSH RO ON STACK 
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11 10446 
1101 13704 
11014 013700 

D20 004737 


i 
t 
1 
t 
1 
i 


(BeBe we 
Rit atr 


: 


rete 
SERZ 





——s 
Fat 
= 
N 


So Shs 
Peres 
-_ 


B02 bee Dente fe Bee Dee Bee 
REP ERs Tea oe? 
ite Lh"? 

8 

#4 


tb be bb be he th ee 
_— 
~ 
6 | 


CRRINS ESR ERERBE 
oie 
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001704 
001702 
004666 


oooos4 
000067 


007056 


031160 


001702 


001704 


002640 
003365 
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REGISTER COMPARE, REGISTER WRITE, AND STATUS COMPARE PROCESSORS 
R4,-(SP) 


MOV —« TEMP2.R4 APT NUMBER OF PARAM 
MOV TEMP1;RC ;SET BERBH Base 
SR 


Bo 
oy 


3"3 
Ai 


; TYPE INVALID OCTAL MESSAGE 


1S: J PC ; Rl TO NEXT PARAM 
TSTB (PL) ; TEST FOR (REMAIN PARAM DEFAULT) 
Bigs 7Aiye’, ippancy i, PARAM NULL 
BEQ ‘gil West PARAM, SET FOR NEXT 
MOV Gt" ) ite G 
ne AEE gan 
MOV R3, (RO) *STORE REG NUMBER 
SN lode 
40S: MOV 1,-(SP) ; UP TO CONVERT PARAM 
238 PC; OCTBIN 3TO BINARY 
(SP)+, (RO) ;STORE PARAM 
2s: TST (RO)+ ; TO NEXT PARAM STORE 
DEC RY ; C a TAKE 
3S: MOV ; 1,R0 ; TT PARAM INSERTION 
MOV (RS)+ : TANT 
ay (Rey aey* heen pre 
Sa Seat Som Firs wo reas 
CMP TEMP2, #2 ; EST F RW(ONLY 2 PARAM) 
Sey tho. (RS)+ Th ik ae 
4S: MOV (SP)+'R4 H T FOR RETURN ‘ 
+" I NORRAL RETURN 
T 
; SELECTION MESSAGE 
MOV t Ry RESTORE RY ESR oP eR 
am MOV (R4) RY ;BAD URN 
: MOV (SP)+,RO 33 STACK INTO RO 
RTS Be + RE TURR 


ss REREREEEERERERE LEE RELL AAARELERRRAERRARERARE RARE ARAL SERRE REESE 


'SBTTL BUFFER INITIALIZ 

+ HER Cc BR" JSR_RY, CSCBI 

; #RE TURN: RT RY ERROR RETURN 

i RT R442 NORMAL ROUTINE 
:*OBJECT CODE: 

$i J Ras ESBI 

x <EXECUTION LINE COUNT CONTROL><PATTERN NAME> 


s% 
;*#THIS ROUTINE GENERATES THE LINK TO THE BUFFER INITIALIZE EXECUTION 


SEQ 0072 
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ities 

111 Boars? 004666 
111 1 

1il 

ill 001236 
11 

it Q 

it 

lel 001236 
11214 

11 

11 

11 

it 000122 
11 1 

it 170 
11 

11 

it 001662 
11 001242 
11264 

11 

11 

11 


UMUeEES STEELE Cen oy NG eee ee 


$$ wie ew ne 
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C-77_ 11:59 PAGE 74 SEQ 0073 


BUFFER INI TAL ize PROCESSOR 


eae Fos rh Se eb Feet EX “BE EXECUTION 
Fun amie T NOICATOR 


carmen LINE 










i ne 
STH pewoon PATTERN IS GENERATED AND STORED IN THIS ROUTINE IF 
3g ea t,o 
an: ae ee 
" ies 
MOVB (R1),RO ae NTO RO RO 
BNE is iE , ELSE 
is S THis’ RO Fo CONTROL 
8 aur SESE WS 
CSCBI: 
MOV 15(SP) 33 ST 
CSCBII: MOVB * PATSEL : ‘ cr 
MOV (RS)+ ; 
CMP (Re)+, (R2)+ ; in 
MOV (Ro), (RS)+ ; 
MOV » (RS)+ ; 
oe B a’ 3 
MOV TR ; PATR STORE 
2s: JSR PC SRAND : VAL 5 
MOV NUM, (RO)+ Sen Wi H HIV 
MOV (RO)+ £08 PATR WITH L VALUE 
CMP TR+100, RO ERN FUL ? we 
- ete Ea rROF pe pay a oSAIN, SWITCH 
, (SP)+,RO T NTO RO 
Tet (R4)+’ RET 06 NORMAL Ae oRN 
RTS RY : 
Z SSBTTL. DATA COMPARE PROCESSOR 
; ENTRY: JSR R4, CSDC 
: #RE TURN: 2 RY ERROR RETURN 
$a RT R442 NORMAL RETURN 
jEOOTECT GR CODE: 
;# BRPARE CENETH , (OCTAL) 


fxTHIS ROUTINE GENERATES THE LINK TO THE DATA COMPARE EXECUTE. 
*#THE COMPARE LENGTH PARAMETER IS TAKEN FROM THE COMSZE 
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CZR6RC.P11 Oe-DEC-77 11:07 DATA COMPARE PROCESSOR 


; #PARAMET' T LOCATION IF_IT IS NOT GIVEN WITH THE C 
;#IF ae VEN, IT IS ST ETHER THE FOR POSSIBLE LATER 


be ALWAYS T DATA 
Neen - Hit Of THe OUNT OF THE 
MTiTiritiiiiiiiitititttiiiiiiitiiiiteceriii irr pee eer! 





=) aH eon asaes fh 

63 O11 004666 38 Pet One at 79 ne TO NeXt PARAM 

abd O1L ) 1B 1) ile. 

966 O11 3 Rov RL, =($P) ; SET "Fn co 

67 Ol ? 031160 236 ;OCTBIN ; PARAN TO BINARY 
370 Olt Saag OUNeSt 2s: HOV RS (Ress 1 SOR Ra CONSTANT 

ii , CMP (R2)+, (R2)+ ; Re. 70 4 AT ICTBL 
gaze Olt —< MOV (Re) URS? + ; Rent RTE ADDRESS 
974 ii — TST Gee ie ta FOR NORMAL RETURN 

a at ones os TF SORT «RUFF ERPLRRGARe tn 
3976 1 "BOY CSP +, RO i§EORRRTACK INTO RO 


A ggg go> eaeeepeenmmmannaaammmaaima uate 
imi, Z R4Y,CSST 
RY ERROR rene 
RT Ru42 ;NORMAL RETURN 
onze ge 


Se out FRc Te 


ba ee ate et Le >< ashi 


ae AND ‘STORED 


eLay ALL”. hor IS THEN 


SELLER erent cr yt 


is x” 
polka ci 

11 004737 O04666 eaete TO NEXT P PARAM 
Hema pl 
11328 TOLME MOV -(SP) >SET UP FOR C RT 
11 004737 031314 ISR pe? * DECBIN 3C T PARAM TO BINARY 
11 1 Wie 205 3E RETURN 
11370 012637 oo1252 Vv (SP)+, STALL :ST STALL VALUE 
11374 010325 1S: Vv R3, (RS)+ ; INSERT JSR RY CONSTANT 
011376 O22222 CMP (R2)+, (R2)+ :BUMP R2 TO 4TH WORD ICTBL 





EET ES, 


11225 
001252 


1 
1 1 002512 
1 14 


SESSEE5E 3 
NOU LSW-O 


eee 


a2 e gg eRRaRR CRE IONS 


eeeeanennanenss 
sabSERRaLinS 


Oe eh he pe 
ee ee a ee 





re 
at 





ee ee 





MOV (R2), (RS)+ INSERT XECUTE ADDRESS 

Tact, (RS3+ at t St TALL PaRBrE TER 
BA ; TYPE THAL ME MESSAGE 
30S: ars Ry’ ise 


iba. UNIBUS ea ha Cur 


s NO ERROR RETURN 


: SOBJECT 
is sre R4, ESUI 


IS ROUTINE GENERATES THE UNIBUS INITIALIZE LINK 


RHEKKLAEFHLLAELEKLELLRLAALLLALELLLLALAALALLAALLLAALELERAKER ARLE AH 


coves MOV (RS)+ T. JSR RY CONST ANT 
CMP (Re) ) execute 4TH WORD OF TABLE 
(Re), (RS)+ ADDRESS 
TST (R4)4 
RTS 


rrrvzteanniztenenennenenennnenrnennnnin 
phe CONTAINS ALL THE SUBSYSTEM COMMANDS. THE TABLE 


C 


oa 





4 , A BA FOR THIS como 
(eeeenanenenauneenanaueenaneeeeaeeeesneeeHnn Se eee Oe Eee ES Ere 
;REAL DATA 

;WRITE DATA 

;WRITE CHECK 

;WRITE HEADER 

;READ HEADER 

; SEEK 

;CONTROLLER CLEAR 

;CLEAR SUBSYSTEM 

;ORIVE CLEAR 

; RECAL IBRATE 

;ORIVE SELECT 








CZRERCOAKGLI/DG USR DEFINED, MACYI1 30¢ 1046) Nill Ll: eh QS 77 SEQ 0076 | 


1sS2 000001 ESOS, 1 
. eae 7PA/ ;PACK ACKNOWLEDGE 


= aaa, 
t 7ss7" ;START SPINOLE 





| oes 
| et Hien 
SELES I oon at ee en 
ie paosad “WORD ;NULL TO TERMINATE TABLE 
4981 est, elie walls hs eee RETURN 
5 RTS R442 NORMAL RETURN 
ee “ge rERS BANE EPP 15, TS goign DECUTE nour 
1868 ORIVE NUMBER a a seCton B Ponnet ete Ne 
4031 CYLINOER NUMBER OR OFFSET: BE Braves Seabee 
4093 


oe A a 


}RSUBSYSTER Senano. THe A 5 US VARI AGS NDING ON THE 
"RUPBER aoe he? IED IN THE THIRD 
(SCTBL). 


¥ 


5 
2 


3298 


41 boas ROUTINE iste aoe Lis 10, TO THE vies EXECUTION ROUTINES FOR 
4101 IT ane ces Besulhe HE PROPER DESTINATION 
13 bea ee ED IN BBY a ain 

41 

1e jAMHEN N THE ROUTINE IS ENTERED, THE REGISTERS MUST BE SET 

4108 pans NA 

4108 is ee, INTS TO THE SF MNEMONIC IN THE SOURCE FILE LINE 

atte ie TAINS JSR RY CONSTANT 

diis is RI es TO THE 1ST UNUSED LOCATION IN OBJECT FILE 

4115 IF bate. "iF sc at }INEMONIC 

ai HE tee eae S Resort oy Aha olde 

Wiig is ee iF T Bee cate occuns. t HATO R2 AND 

4120 ; #5PEC 1D IE, 8c BaRaneteR Mi EPST aenriaND D VALUE 

4121 ;#IN SUBCMD IS PUT IN Re WHICH EFFECTIVELY LOCATES THE TABLE 
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| | CZRERC. Pil O02-DEC-77 11:07 SUBSYSTEM FUNCTION PROCESSOR 


_— 
THE REMAIN ING PARAMETERS IN THE SOURCE ARE 


HEA eee [PTs etoeea teak ick MS Boe 
Pati GET DHE 


arnucte — “ah Sarat PARAMETER REQUIRES app ER 
eye ee a 
pienas otha at i. F ; hee Ne BEFORE 

i Mah paty | a7 st Wa IT FROM PEPER TAPE E. 
ae Dod Genk 


tor eer eee 


C2  @ « 


a bb bb bb bb bh eb be be 





SERRE EGR 8 
Fs 


SEESCLCLCSSCLCSSCLSC SSE SLCSCLS ESL S CES 
SL 
wre 


Oboe 


22 2s: 


41 
45s 

4155 iene WORD COUNT PARAMETER is CHECKED TO INSURE THE 

41 IS LARGE ENOUGH. IF NOT AN ERROR IS PRINT 

ai Pree tiiiitirtitiiiiiitiittititititititiitttrttilititeeegiyy 
4159 011576 coarse 

41 115 1 MOV »7(SP) 83 

41 il 4 HOY *=(SP) 33 

41 il 004666 J ; 

ais Biers abtaes 001702 Hove (81), TEMPL : 

a1 it if 1 1137 001703 Patel (R1), TEMP1+1 : 

ie? Biles G0sS0l 18 BEC 1 ; 

4169 ¥ O1 epics MOV MD, R2 ; 

ats tt 4° cope =(Re), #”OF : 

4172 O11 BNE ; 

4173 O1164 

4174 ties8 TST 

Wize Btieed MB 

4177 O11660 BEQ 





7$ i ORRNCH IF YES. ELSE 








SEQ 0078 


NO6 


FUNCTION PROGESSOR 


ee 
-_ 


TEM 


-“- 


| Gepenccent “B8-Bec-97 Iisee  ™POYIt SBCgNe 


| 
| 
| 





I™ EXEC ROUT 
RN 
0 


i 


NITIALIZE 


T 


MATCH 
BRANCH 
NULL 
NT 
N 
RY 
» LAST CMND 
T 
prrse 
SeouNTING 
XT 
PARAM 
9 
of "2 
FER 
TED IN 


R 


T 


8 
ADORE 


aN IF PHD. 
en 
tone anes 
Mk 
I IVE 
VE. Sut 
: I 
giants 
sPATT AG ? 
ee 
Bie ne 
18 bara 





RUE 
; TYPE INVALID WORD COUNT 


;DUMP BAD Vi 


i 
"| eS 
oer ete 


EeiitstitaeeltsSiarerstheanshsieinke? diets LS 


pyfspcngeasaneetocntunul Ful pues csets Gast. Ent 


4S 
S$ 
6$ 
7$ 
2 
10S: 
11S 
12$ 
13S 
21s 
2 

558 
ess 


001702 043117 31S: 


= 38 
Bs 83 


1 003101 





1 
1 
1 
el 


beam Seam Sean en Seem Seem eh deem beam Seem Seam. jee pare Sean Seam Seam Spam pean beam pam bam Seam Seam Sean Jam bam pam bean ban ban ban ban han ben tar bn tn bee ee ee kk ad ad hd hd 


Stet attra eURIURUUHTURI UICC} 
EY dt cucucCucucucY 
rrazzIIITITII7FI7T7T 777777777 F7F7F FTI IIT ITIIIIFITIITIFIIFIIIIFITFIIIIT 











f 
| 





003123 
003146 





BO? 
mCP SOSA E en RCPEFiOR hbk 


00124S 


Ouisi2 


00124S 


wr -“_UCeOlU 


178: 


46S: 


TYPE 


203 
34 


BEL ae tt F eer 


cere 


Bas 
oO 


= 
So) 
o 


io 
a 
© 


er 


IVONC 


Z 


S% 2 


me 


), MAXWDS 
II, OPFLGS 


8 SES 
‘ 


sePncacetananaas: 
bee 


), 87 
)+, DRIVE(RO) 
RO’ 


et 
aa 

- 

a 

— 

aa 


eo see 
r 
a. 
~ 
~ 
+ 
+ 


; TYPE INVALID COMMAND IN NO CHECK 


SOVPE Messnae © OER 

;SET UP ERROR RETURN 

{Poe Stack INTO AG 

. | 17 0¢ TacoTo Binet 

ET i, TAL NUMBER 
ORS COUNT IF TO BIG 


INHIBIT SET 
T OKAY 







-"SET THE FLAG 
ISAME DRIVE SWITCH SET? 
tEUEAR SANE BRIVE SuITGH 


; T OPERATION FLAGS 
NUMBER 


5 

3 IF NOW EXIT 
HEst OF "EEAG SET 
; INSERT OFFSET VALUE 


;CLEAR OFFSET FLAG 
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CZR6ERC 

sat es 001200 
: ans 
P 001204 
uses 1 
4306 BB i50s 
2m aes 
4 

4 

Rr 

4 

4307 

4 

i 

He 

at 

4315 

aie 

ie 

4313 

4321 

te 

uy 

: 

4 

. GIES orca 

ay SIS Bt 

a t 7. 004666 
: i 000117 
4 1 171le 
Sea lee Aggcts ONO 
aaas O01 1057. 001234 
WB BHESEY GOUI ousi20 


O42122 
001254 


001174 


001174 


448: CYLNUM, (RS)+ INSERT sr eee reer 
Fata, (RS)+ ae PARAM 
pm FBR cH rar ree 


(RS)+ 


TEMP1, 8D ei ook ont lout COMFAND 
Biercomae (Ee FBR re gage ome coor 


ee Cee Re en eee 


form Saad 
on N  oTRTE 
R442 
cole TEST PATTERNS HAVE 


es reRaRaS 
ee TERBT PARAMETERS (ORIVE, 


. sce Ei i Pie SPREE Hef foins BAS cen 
T FILE 


* AuSEeEiaae hes OESGECEEESSOSEANSHSSRSSE SSA ESREEEEHERELEEREREER 


owe 
HiBuSH ba on gt 


bape 


asst 


SOs: TST 
BR 


Ae (SOURCE OR OBJECT) 


D’ iSoURCE OR OBJECT) 


gi 
S 


BEQ 

CMPB ge 1),#’0 

STB sTEST IF CT CODE 

BEQ 21 BR vate ari 

HOV sCOFPTAT RS 

Mj OFPTR,R3 ; fea END. OF FILE) 
SQFILE,R3 ier S DIFFERENCE 

2s TsTe SEENP : wry SOURCE FILE EMPTY 

MOV * PUCODE SEF buREH Fie c CODE TO SOURCE 


| CZR6RCO RK611706 USR FF noe MACY11 30( 1046) ae 11:59 PAGE 62 SE@ 0081 


| CZR6RC.P11 O2-DEC-77 1 OUTPUT TEST ROUTI 
eh penton 
T 


a ee Tc ie TUES Babe 


: PARAM 
H 
SPATXOF :GET PAT DEFINED SWITCHES 
ree esr ool re 





4 
4 

4 

4 

4 

q 

4 

I {ieee us ; ea es 
4 i sPATK Ro SET Ra OR. PunieH 

4 1 35 R4, PUNCH ;PUNCH PATTERN X 

ae bt me a ere PEL BER, gs 
my ee aC TSR RSS PUNCH {PUNCH IT 

Sa s4pi- TP AE.» we 
4 513703 nov Ht SSET PUNEN COUNT AND 

4 vt 2 R4, PUNCH EER 

a 168 6S: B CRS) HES ei carrey DEFINED 
: , L ~ af iL T e SE 
S1e i me Bh HEARSE ce 
4 7S: #OFILE,RO ; OF FIL 

4 Bates 043117 CMP POCOBE? SOF aa he: ¥ 

, } 001710 Boy 46s SBUFPT, RO tT oAB Ro HITA Ratt 
4 i : gs: ie PUFLSZ,R3 ‘Be COUNT 

4385 13714 ; TST  (RY)4 ;SET NORAAL Re TURN 

i387 b1e7e8 OL 002616 20s Fire ad YOPAR i pe INVALTD PARAM 

28 : 002756 218: TYPE YORUN ;TYPE NO OBJECT CODE 

ie 003007 225 i angsre ;TYPE NO SOURCE CODE 
Za en, DFR 

4 1 - Vv (SP)+, ;;POP STACK INTO 

Se bis flees Y (ER HAR A RS 

4 1 000204 : 

- a . PETTTTUTTETTTTT ETT TTT TT TT TT TTT TTT TTT Tt titi ttt ttt tt tt titi ttt 


=8 
of 
r 





ERE. Pil be-DeC-?? 11:07 





i; 
| 
| 
1 
| 416 Ot T0200 
441 1 774 
aut i i 166730 
4414 1 
441 1 
| 441 1301 
wuig O13019 11404 
a 013016 
44, 
44 
44, 
4423 
44, 
4Y 
4Yy 
4427 
ae 
4450 
44 
4Yy 
4Yy 
4434 
4435 
44 
4Yy 
44 
4439 130 
4440 1 
444 1 
444 1 
444 ist 
4444 130 
ie 13¢ 
444 13 
1305¢ 
13056 
13066 
WHES OL S0EE 
130 
yy 1 id: 
44SS 131 
44S6 131 
44S7 13104 





EO? 
PACTS SBSH op Ei houtlie? PAE © 
I Re 
INTE PRES ieAtMaels AMES 06 Fyg.NoveneD fv Te weve 


5 RHRARERERASRERA SEE ScUneateEcuntacdarencaesenaanucnensseeeuensense 


ee ae an 
ont i i Sart cts IE OTHER 
pove )+,3PTPOB ibec. 
8 (R4), RY ; TURN 


RTS 
jsreeennasuaueeteceeseressenanseeneeserbassasenseenseenesensnees 


Be ee Te ee ee eee 


Hed 
is —" oe Ree RORMAL RETURN 
= Lic HAS TWO ENTRY POINTS. THE ENTRY AT ISRTE SETS THE 
erieet ‘ 
i ary a ae oh PATY te A PATTERN tbs 
BENE TES 
eM: I ei tzeD 10 PATTERN 


Sib alGt levies = ex TArYincLad 10 THE Paros 





001663 “ms BISB #1, CHNFLG ;SET CHAIN FLAG 
Vv » 7 (SP) ; ; PUSH TACK 
»~(SP) ss T 
Vv -(SP) 5° 
Re he Ae 
3s R4, RE : 
MOV #PATXDF , RS 3GET AoGR INED FLAGS 
TSTB (RS)+ ;TEST PAT X DEF IN 
Beg is : F ELSE 
Vv #100,R3 : T READ 
MOV #PATK, RO ; the INTO PAT X 
J R4, RDCONT : N ar x 
1S: TSTB (RS)+ TEST. PAT Y DEFINED 
BEQ 2s 31 BRANCH. 
MOV #100,R3 ;SET NO¢r 


: es, s § 
> a wba m e & 
te e ¢ 2 8 4 
oO °o wu o- rza 
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YPE ; TYPE = RATION” 
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ERROR RETURN FROM DRIVER (DRIVE ERROR) 
FPRINT ;PRINT LINE (BUS ADD HI) 
CLR Re ?Re SAYS WORD 
FPRINT j PRINT LINE (BUS ADD LO) 
FPRINT ;PRINT L ( COUNT) 
6S: T » SCRLF 
TSTB RPSKIT ; TEST 
3 ?NO - EXIT 
fe »PRLPCT ;PRINT L COUNT 
r (SP)+,R4 33 T NTO RY 
oy (363 $; Ra 5:4 TREK NTO R3 
Rey fees f1PRe SRE IMS 
MOV (5P)+'RO *POP STACK INTO RO 
fe PC, SWCONT ;$0_TQ SWR LOOP CONTROL 
31S: vPe es ; APPLICABLE. REGS” 
44 #8yTe,Ra ines § iP huct Bey RT eRoup 2 
TYPE F ;T HEADINGS 
40S: BIT ier : BBs ITE oF a es 3 
TYPE FPARMY T HEADINGS 
41S: pir i T4,R3 Test Poe 4 
TYPE 3T 4 HEADINGS 
425: Bo 4 Ts, i Test PGR GrouP 5 
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nea TYPE FPARM7 ; TYPE 6 HEADINGS 
Hoy RS RO - Set TABLE P POINTER TO GROUP 6 VALUES 
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CLR SP) ;PUT NEW 
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Ha) EARNER SMbhe RERGERE Po rae 
2s: ;RESULTS GO HERE 
003411 Tt PLABL 


URN: RTI 
eG TebaS feaenreneaneaceneenensaneenensuneeseeeteateneenentes 


S ISSUED TO THE DRIVE 530 GET ALL THE STATUS 


OMPARE ONLY TESTS THE BITS THAT CORRESPOND T 


Hier WORD” rested, MERE EXPECTED VALUE ter REE Mics VALUE, 


1 
1 

1 

1 167 tit NT: rst Re ;TEST IF BYTE OPERATION 

1 167: 1 BE 1 ; STAC 

ie ae ce et CAB? csey FRB MEPE SB on src 

1 16744 1S: tions, -(SP) M0 ON STACK 

HER ESE ome Te ee 

511 TMG: rr 
sit 3 a EXECUTION 

11S R> 

116 Fier ED VALUE> 

11 i 

ate } BRETURN: RTs.) RY 

21¢0 Teng MT INE FI TA GOES 7 TO THe 3 TER R BLOCK TO CHECK 
518s BE 8, Bie stir iee Paateetas BYES." Ooobe In the 

i “TES\. SELECT 

1 

E 

2158 





a sapuiiinliannneaen . 





EO 
5 A ieee Be din MACY11 30t ONO eae ee outtine PAGE 96 


;#AND THE MASK ARE REPORTED. 
= 2 oo” CAN 


i Bee aang 


801000 000014 1S: 
eee 000001 


EGH=SZBLERAORLES 
reat 


EEE 


ee ee eB bb bb be oh ee 


hata a 


161224 





OMe Or OOF Or- Or 
o 
é 
& 


eu 
- & 
RSs 8 


E 
“2 
if 


161210 4S: & ; INHIBIT PR NT? 
per iie L ANUM, - (SP) alae RON Nn STACK 
, 

‘SCERR iE Hs COMPARE ERR 
tR4)+,-(SP) GET 5 aTus WORD 
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iaP)+, »RS $2 T NT 


se iat Fee meena 
; j SRE TURN: RY 

ESE ar ectaae oct GE RUS Che 

ee ae tions INGRERENT PSUEDO LN CNT naae 


cr +,RO ; f REG NUM 
REBAS, ;ConRUTES (REGISTER NUM) FOR INDEX 
CEd+, ( ) ; LORD v tao 
Mm aaf 
NTRY oes T 
pEENTRY: On OF FS FEST cons 
j RETURN: TS R4 


RUS JES Uta Ato CERORT CRIES Ht 


ST ine on incarent cine cout 
Move Ch 4 ay 
HOV eps A ABNL 
JSR i. WITCH 
Rov 


ea oo oh, OS cones 


Fel Oe ALL INTERR INTERRUPTS 


g sreeveslldosssatteneseszesssssel tt lanssauesseneessnssnnoneees 
‘Sar ny: BUEFER ra eaet EXECU 


te «EXECUTION ETRE COUNTER CONTROL> <PATTERN> 
;#RETURN: RTS 


.* 
;*THIS ROUTINE FIRST CHECKS LINE COUNT CONTROL AND IF A ONE 





1S: 


{ans te fe 


MACY SUFFER INITIALIZE EXECL 





s BINCREMENTS LINNUM. 
jATHE SELECTED Perry! IS THEN GENERATED AND THE ENTIRE OUTPUT 
ETT T rite ttttiiiiititititiliiiiieeiiiiseter rete res Pee e err 


10S: 


Sep ety - 


oaguayRaaacengeay 


Ee Totad 
3 < 


sggeoease 
<<a << 


ee 


; TEST IF LIne COUNT TO BE INC. 





eS SONTEEES FIER el 
oe 2 FTP ae 


Sura WITH PATTERN 


iam, WITH PATTERN 


LAST WORD OF PATTERN 
SET T POR OTHER 30 WORDS 


fia ices IN Be BUFFER 


PUT 

PUT 

PUT LAST WORD OF PAT IN BUFF 
GO READ THRU BUFFER 


3 

# 

; 

HT8r an LAST WORD OF PATTERN 
; OTHER 

$GO INITIALIZE WITH PATTERN 
:PAT C? 

; LAST WORD OF PATTERN 
; NITIALIZE WITH PATTERN 

9 : 

:1ST AND LAST WORD 
bi 


HE SAME 
WITH PATTERN 


Cc RK611/06 USR 
eatngha Oe-DEC- 


00020 





000107 18S: 
177777 
oo0020 
19S: 
oo0020 
sis 
= 
De 22S: 
‘ 318: 
+ 
238: 


ra, MACY11 30( 1046) 


000105 118: 


12S: 


Jonocs 13S: 


14S: 


000106 1SS: 


16S: 


a te 


02-DEC-77 
BUFFER INITIALIZE EXECUTION 
CMPB R1,8’E 
ay tite 
MOV #20 
MOV R1, (Re)+ 
DEC RO 
BEO 13S 
me 
ae as 
BIC #100000 ,R1 
Nov Rit + 
DEC RO 
Ase COL 
aR 14s 
CMPB 1,8’F 
any H 77,R1 
aM Hey RO’ 
bee Rg’ tR2)+ 
ASL Ri 
BR 16$ 
BIS #100000, R1 
HOV #17,RO 
14s 
cNPB R1,#’G 
MOV #177777,R1 
ROL i 
HOV & thoy 
BO 
ha 18s 
ROR RTO 
MOV R1, (R2)+ 
DEC RO 
BEG 
iS 
CMPB 1,8°H 
BNE 24s 
MOV #1,R1 
MOV #20, RO 
MOV RI, tRe)+ 
DEC RO 
BEQ 23S 
ASL R1 
BR 31S 
MOV R1, (R2)+ 


11:59 PAGE 101 


SEQ 0100 


;PAT E? 
i WORD FOR PATTERN GEN 
ipeaeA CNTR 
NTO BUFFER 
4 GENERATED, EXIT 
TI TO 
3C NUE TTERN 
SECOND HALF 
INTO BUFFER 


; 
; 
; 
8 
We TE GO_SPREAD IT 
pode _ 
8 
BR 


; ie PATTERN 
: ve EXIT 
LIST HALE OR NEXT WO 

ist FOR 2ND HALF 


‘a 
prev igus 
:BATTERN GENERATION 


i FOR PATTERN G 
int Sere CARRY RESETS BIT 0 


is 
Fane BALE count 


; 
: T IN B BUFFER 
; DE 


IF ZERO 


BASE Hone FOR PATTERN 


;PUT Tho BUFFER 
;DEC_COUNT 

tar HALF IF ZERO 
SHIFT PATTERN 


AST WO GENERATED IN AGAIN 


c 


| 


a 


——— =e 
| 





| CZRERCO RK K611/06 4 DEFINED, MACY11 30(10 46) D2 -DEC=77 hi 8 yr PGE 102 SEQ 0101 
| I 19 ¢ 940009 rey wie ,R1 is} NEW FOR 2ND HALF 
0 USE PRE V GENERATE OPERATION 
a oi SNES A F OF PAT I 
7 1sssss ess: MOV #155555,R1 pay Tome 
4 a BR es” - ; eae ai WITH PATTERN 
383 nov (R13+, (R2)+ : BUFFER 
001704 CMP TEAP2 But “BUFF FULL 
ee ee Bl 
001562 28s: CMP TR,R1 
4 BNE 
MOV R1 
32S: rst -(R1) 
001704 eae hiw* 
BNE 32$ 
MOV BROFPT, RI i RE T A TO 1 TO_.START OF 


001706 29s: 
; FROM THIS 


Pata e Eris 


000753 s POOP 
4g4 1312 000204 : TS * RETURN 
SITTTT TTT TTT TTT eT TTT TTT TTT TTT i TTttt tt ttt tit titi tt titi tt ttite 
a en ie ee 
et TURN: RTS 
EOE SPLTUD SPATE TE SO WEIEE AGEL? BEYER aon 
the Is L WITH T Tee BLOCK : 
Hin TION TH OF INSERT NG THE ORIVE 
TO no HE RNa aT Me baking dee. O* 
tet (PSUEDO LINE C 
CIV EteoNINCRENENTS. THE Cit (PsUeDD CONE COUNT): 
1 4 4116 PaSEL: INC - ; ti NUMBER COUNT 
10 Oel 737 001670 rere : 0, BE USED N 
1 1 1 BNE 1 ; 
: 1 : ? 230 - HOV 1,R5 ce T 70 PARAM 
14 i 1 : HOV CRG), P. DRVNCRS) N ORT VE PARAM 
te etsee Beads a page 
BEI i 001176 HOVE (84+, DRIVE INO? ¢ IT IN TRAM STORAGE TOO. 
ig 1 113 S 001176 oo0000 2s: MOVB DRIVE, P.ORVN(RS) ;GET GET STORED DRIVE NUMBER 
peed 1366 1057 TSTB (R4)+ 
S21 1370 OOS06S 000014 3S: CLR P.PRST(RS) + OL EAR PROG STAT WORD 








DOO DOO COD OC 
aFUD FLD FuRtud FAT UDTD Puen fru 
eS 





UU UT 
OWN Ee 


: 
| 


Benes seenee 
PoNn2IV2ON20 


Bsteveccees 


he eh eee ee 


a 
Yow! 





SEQ@ 0102 


TRIE, MOM Tutti a 0 : 


Bee II,¢ T Ser; oT. BAI INHIBIT SWITCH 
TF 


Q TBAII,P. sandal” “iQHIBIT INCREMENT 
4S: pire , (RY) sTest Z NO CHE 


rt il Riel Meneniae eee Riou neatoatancstetomntee 


fl Ae 


sas ROUTINE EXECUTES A UNIBUS INITIALIZE 
> mye 2 geemmaeicceenrenormeeeempee 5 memammmmmnesiee: 


iis? 

NNUM ; MENT LINE NUMBER 
p,begnnneseneueeseunnvsnsennseesesasnesabesssnenssensscnsccsssess 
;#ENTRY: RY Een HF XX 1 He SUBSYSTEM CMND 
3% < CHECK> <DRIVE> 
1% < NUM> <OFFSET> 
+ ‘ >< cT > 
~ Fe OORt 


be Pend Penseeitt otbck atone usta freee 
ia IN or tte ete Patt Pie tentt Sli INP ORMATION 
ER TO 


SPT ION THE WORD AND 
THE RESULTI 
alll AS eileen 


tREPORT FORMAT ENTRY 
—_- ie Kaho IRESORT FORMAT 
EScs: ove — #SUBCL, RB : SUBSYSTEM. CLEAR ENTRY 
Escc: Hove fey R3 CONTROLLER CLEAR ENTRY 
BR 


ee CC 


| CZR6RCO RKG11/06 USR DEFINED MACY11 30(1046) O2-DEC-77 11:59 PAGE 104 SEQ 0103 
SUBSYSTE! EXECUTION 


ei 
: 

: 
zy 


Ge 
3 


CZR6RC.P11 O2-DEC-77 11:37 M COMMANDS I 
bel etter ESOS: MOVB SSELDRV,R3 ;ORIVE SELECT ENTRY 
el 1 ov po a a ;REPORT FORMAT 
4 a a en alll 
4 GBBi, s OHRRORR.FO SRP FURR 
| pOGt AA ESSS: Rov qoRb’*? + ROBB aT FSRRAE ENTRY 
i B01 48 Sr: fiov —Bleg,Ro” «REPORT Fonnar 
el 000164 ESAH MOVB SROALHD , R3 ;READ ALL HEADERS 
st 000165 fev THREE ;SET REPORT FORMAT 
lel poolee ESRH MOVB AD,R3 3 READ HEADER ENTRY 
ei 16' mov tee ;REPORT FORMAT 
: 000117 ESSK: MOVB #SEEK,R3 ;SEEK ENTRY 
+ 000 ee ;REPORT FORMAT 
1 





oo eee 





A,P.CMND(RS) — FUNCTION 
TE CHECK Ger PB ASSIGNMENT 


ESRD: Boy ORE RO 
931748 ne Bd AT STABTAOF IDPUL.BUFF 
1S: bee A LOCATION 
anes 
5h P.CMND(RS) ; "e I one a 
BR ERUEPT,P. “BALO(RS) ;LOAO BUFFER TADORE SS 
: JSR PC, PBSEL :WRITE DATA, GET PB ASSIGNMENT 
CODE 
. Re 
Nove 





MOVE sWRTCHK.P. ig ; 
Hov air nd OCRS oF 8 R ADORESS FOR WRITES 
Ve (Rads!P: queens) es Fick RODRESS 
MOVB (R4)+,P.SE SECTCRS) j CTOR ADDRESS 
ll , a. CR aUNT 2’°S COMP 


CAEP SE a EERIE eoen COMMAND 


r 
a8 
Sus 


ins | TEED Bp 





a 
i 


(GkRerc-pil 0e-bec-27 11 


a! 






a 






ay ay ah a a 


ay 


ron 
Pana 


100200 


180300 
i8a260 





rT 
. 
| - + ++ 
x Se Se 5 Me 
' ' & 
> 
-—. J & 
be + 
+ + 
: - 
+? 
++ rt. 
C Je - 
J. & 
pana + 
- + 
2 
+ + +9. 
+ 
= 
Ne : 
+ 
i 
7a2 t 
- - ' 
> + > + 
— ' ' 
- 7 > 
' 
eee eee 
~ 
+ ¢ : 
' Kr 
~- > 
f 
+ 
i > 
~ 
> 4 > > > > 
' se 
+ > + ++ 
m4 ’ ‘ 1 
+ > > 
' 
a 
Oe : + 
— 
} * 177% 
> ~¢ Je 
* > v > 
| ‘ 
> + 
- = 
v Soy a oe 
' ' 
P > [ 
> + -_- 
J ' 
> . ed 
{ 
2e 
Ae 
en ee arenes - 


MACY11 30(1046 


000010 


NO 


8 
SP cesT 1 
Bad ADDRESS OF HEADER BUFFER 


ae Pate P. ae 
vey (Fe) 
( Peas, 
(R4)4,P. 
(R4)+,P. eat J. 
TWOP: SR ape 
iy 


) 
SUBSYSTEM 


ee rSHinb) we: Ra TO NXT COMD 
: , PBSEL 
coon bo . Heth er te 


suseuUebusnunccuccusceuucenaekedsesseueeueseunesuxssnsenseenes 


a SN Q,TAPE THAT IS IDENTICAL TO THE 
i 
: vm eee OR ERROR 
| bam, Ble 
Ee ear 
x: Som 5 
308: re caus ;GO0D_ RETURN 


GICs an 
eae 


nugROS_ Or, PAT Z INTO. THE, GUeUT GUrrER to Ge UATTTeN as, THE HEADERS 


SEQ 0104 








ar 








B09 
ISLIP ENB, OO so) DES enhlAg? A 108 
ov BLOHOR: 


SAVREG sect 
CLR a: BE useD AS FLAG 
000007 BITe ther, P. esuncndfee ; ee HAT IS RIGHT 
pa 
M5 TF TORS 
001702 Bis Poe ‘ ryelincilia: 
Ss: t ;GET 
‘a SM 3M me 
Hove U4, ! agian “iP cerns fnon pat X,y,2 OF 
ASL Re ‘Abs K FoR CT POSITION 
Ret R 
ASL Re 
B a1 Re CTOR BITS 
BI tinps . RS i PRSERT FoRnat BIT 
1S: HOV R Ra :COMPUTE VRC 
BIC 21° R4 
1¢ 2°R3 
Roy As es 
MOV Ra: (Reds if 
Ne R3, (RS)+ ; 
fe 
fe | 
2s: MOV #PATX,R1 iB FER 
MOV RO, RS" in aif Mo 55,9, COUNT By 3 
ASL RO nO WORDS REQUIRED 
3S: ROY (RL)+, (RS)+ ;MOVE_HE WORD 
be ro’ *DEC C NT , 
“= REG 3s 3LOOP UNTIL DONE 
x R 
3 pete Gateg" thee eatepganegzsonnennneeeeeeennnsnnnaaaces 
; XENTR R4, OTRTE 
is WITH R1 POINTING TO COMMAND FIELD FOR DT COMMAND 
j ERROR RETURN: Moy (RY), RA 
j #NO ERROR RETURN: Tet cRa+ 


ant} ROUTINE CHANGES T RY VTYP’ PARAMETER BY STORING 
T *DT’ COMMAND 


THE VALUE SPECIFIED T 
5, HE AE 066-0696 0G 4 a a a a a a a a a a a a a a a a a a aa a 


eames 








Wide 
Fae 
43 
DA 
: 


ihe 


ha 
That, EXISTING DRIVE TYPE 
TUP FOR RKO7 


Sone 
as te 


m 
Praline ee 


:BRCIF YES, NO CHANGE-EXIT 


ae R OF ASCIT CHAR 


veer 


uF VERO? 
IBRIMT, ERROR sc 


5 POP STACK INTO Rl 


ip -owmineDy woeoee 


ear FOR RKO6 
1 Be 13 980 Be RKO7 TO P.CSIH(RS) 
RETURN 
Be I 
; INVALID OCT NUMBER 


MACY11 30(1046) -DEC-77. 11:59 PAGE 107 
DRIVE type cunniae Routine 
MOV R1,-(SP) 
ISR PC SBSCN 
ee (RI) 
APB Heyer? 
BNE 4§ 
ay Tr 
MOV s ,- (SP) 
SS: ROV » ~(SP) 
65: TYPOC 
TYPE jgcPF 
BR 
4S: CMPB (RL), e’, 
a 
me Bbsoffbln 
MOVvB (SP)+, DRVTYP 
ooo006 CMPB DRVTYP, #6 
BEQ 3 
000007 bee. Ber: 87 
ope Typ 
29S: MOV tR4),R4 
—_ (SP)+.R1 
Reg Ry’ 
7S: CLRB  ORVTYP 
001244 8S: Rove is DRVTYP 
1S: ney (R4)+ 
BR 30$ 
2s: TYPE BADOCT 
295 


PTTTTT TERT TT TTT TT TeTTT TTT TT TTTI TT ttTi TTT TTT TT TTT TTT TTT TTT 


ait 


CERRI: 


-ASCIZ me CLEAR CONTROLLER” BID ROT CLEAR ERROR/<15>< 12> 


-ASCIZ /NO ATTENTION IS ATTENTION SUMMARY REGISTER/<15>< 12> 


SE@ 0106 





es ey 


- CZRGRCO _RKG11/06 USR DEFINED 
| CZR6RC.P11 O2-DEC-77 1 
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PIQOOR ROG 
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\¢ 
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=e 
2 
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Rimtatntnti 


i*. 17.7 


+ ¢ 
Seen 
mt 
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+ 
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MACY11 30( 1046) 
ERROR 


CERR3: 





CERR1O: 


CERR1S: 


O2-DEC-77 11:59 
MESSAGES FOR CONTROLLER ERROR RETURN 


CERRe: .ASCIZ /UNSOLICITED ATTENTION/<15><12> 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 





PAGE 108 


/UNEXPECTED DATA TYPE ERROR/<15>< 12> 


/ATTENTION DID NOT RESET WITH DRIVE CLEAR/<15>< 12> 


/ATTENTION DID NOT CLEAR WITH SUS-SYSTEM CLEAR/<15>< 12> 


ILLEGAL DRIVER COMMAND/<15>< 12> 


/DATA LATE WHEN UNLOADING HEADER/< 1S>< 12> 


/CONTROLLER ERROR DURING DRIVE SERVICING/<15>< 12> 


/ORIVE PARITY WHILE GATHERING STATUS/<15>< 12> 


/MULTIPLE DRIVE SELECT/<15><12> 


SEQ 0107 





STRAPS. SEOGFINEB, "OVI RUB SECRETS oAMHRRL EROERABR ners orn ox 


Besse 78 620122 554188 CERR7: .ASCIZ /NO ERROR ENTRY/<15><12> 
Beiis4 O0eS3I 12 


;CONTROLLER ERROR FLAG 





eeee 
<<<<< 


CEFLG: 
ETABL : 


POO 
rut 





-SBTTL TEMPORARY CONTROLLER REGISTER STORAGE 





T.CS1: .WORD O : STORAGE FOR COMMAND AND STATUS 
T.cS2: .WORD 0 : 5 's ORAGE FOR COMMAND AND STATUS 
ao : Tene 
1:8: ; «TRACK dB0F 
TRSOF: WORD 6 ; T ON 

T.ER: . H STER 

1:68: : : BRIVE STATS REGISTER 
# — 3 MA GISTER 
T:MRe: : ; Ma REG TER ; 
T-AR a ; MAIN N GISTER 
T.PAT: - WORD ; FC PaTTER 

T:08: .: : A BUFFER REGISTER 
.SBTTL DRIVER PARAMERTERS 

RKBAS: . 77440 ; ADDRESS BLOCK 

RKVEC: “WORD 10 ; 

RKPRI: ;:WORD ; I INTE 

A.NORM: ERRFRE S ADDRES NORMAL RETURN FROM DRIVER 

A.ABNL: ORVERR [ADDRESS OF ABNORMAL RETURN FROM DRIVER 


a a 


Cc 
¢ 
_ §914 
91S 


eee 
nO 


EPS SEERA prc 


Le Se ha iy: 


Pil. 08-Dec-7711 


823570 00000 


023572 


bB3876 





010 


A.CONT: CONERR 
. WORD 


E.CONT: 


Al 
ge 


“ar yo iT8 
. CERR= T 
‘SeaR: Bt 
-CMTO= BIT14 
-MDS= T1S 
O.WAIT: . 
W.MTIM: 
W.MILI: 


W.SEC: 


WING: 
HOR: CT: 


H: HEAD: ‘i ME 
H. : .BYT 
W.TIME: .BYT 


- SBTTL 


INTMSK: .BYTE 


; INTERRUPT MASK TABLE 


I.ORV: .BYTE 
- BYTE 





400 
400 


_ 


2 a.10 


INTERRUPT MASKS 


0 


1 
e 


RETURN 
WHEN EVERY COMMAND 


WING B11 ASSTGNAE 


ADDRESS id 


ae Fal Po 


VER SERVICING 
QUEUED ONLY) 


eee ae 
MI pasta Stan OF DRIVE 
ie p06 68 COND Fine 





fete Ae ALL COMMANDS 


Syne b READE Por READ 


— MELERSED COMMAND ISSUED 





INT T 


; INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK 


; INTERRUPT MASK FOR DRI 


VE 0 
; INTERRUPT MASK FOR DRIVE 1 


Eperc.Pll Os-bec-77 11:07 


GO9 
MACY11 Fee ot haas 11:59 PAGE 111 


-SBTTL PARAMETER BLOCK TABLE 


PBLKT: 


-SBTTL TIME FOR WATCH-DOG TIMER 


W. ORV: 


. BYTE 


. WORD 


4 
a 
1 

200 


0 


tBRIVE CALL.” MUST Be LORGED INTO POLKT 


; TIME FOR INSTRUCTION IN PARAMETER BLOCK 


SEQ 0110 


cnt. a USR DEFINED MACY11 30(1046) O2@-DEC-77 11:59 PAGE 112 


CZR6RC .P O2-DEC-77 11:07 


SESE | 


Bo555055 
me ee 


ONO U fw 


77776 


pe3578 023574 
3616 


7 
4 
1 a 3560 177776 
3e32 
36 


ZUe CRIDER CRBS OES ae 


RK611/RKO6-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10) 


-SBTTL RK611/RKO6-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 


SUS hdr” 
Sion: "ROY Lies, 
-SBTTL  #WATCH-DOG TIMER 


ROT GURRBRT OF ma UNIBUS 


Peng Bo. SINGE ee 


ae as ered Sab ye 


QUEUED ener ios THE WATCH-DOG TIMER W 
HATCH TO o PERe Spanair Y. FOR “SEQUENTIAL 
OPERATIONS ORLY ONE #10N WILL WATCHE 


CALL JSR PC,W.WTCH 
RETURN IF NO soviet aaa raceme: othe TIME LIMIT 


OTHERWISE AN ABNORMAL RE 


Lae 


; ge i ae HH a a a aa a aaa aaa aaa a aaa a a a aE 








L222 ee SS Sk OE RS Ee Se E 


WeHTCH: FEY Bas (8} SVE fa ON THE Stack 
HOV Rat =( BP} SAVE RS ON STRiCK 
Bee BSarin MILLISECOND Time 
Bre BOs g Ret ORK 

Vv W.MILI,W.MTIM ;REINIT ea vote SECONO TIMER 

Eis W. TIME a see ING TIMED 
me Read eS Peay ol Ri he 
DEC W.DRV’ foe COnnA . 
BNE 20s RETURN IF NO TIME OU 


0.10) 


SEQ O111 


— wn eee eee ee 





SRR BS EOF IE 
SUI UK 
ee SY 


109 
MACYLL SO(104G) O2-DEC-7 11:59 PAGE 113 


CLRB W. TIME ;RESET TIMING INDICATOR 
MOV PBLKT,RS L a R OF PARAMETER BLOCK 
000014 BIS SCMDTO,P.PRST(RSS ; “Gut 
CMP RS,0.WAIT ; DR ITING FOR 
BNE ss 3NO, DO NOT WAITING FOR 
; COPLET 

CLR 0.WAIT ; WAIT FOR COMMAND COMPLETION 
Ss: ISR PCR. : TO ERROR ROUTINE 
20S: MOV (SP)4, 7REST 

MOV (SP)+; >REST 

MOV «CSP )a° RG TRESTORE Ra 

MOV (Sp)3'Re tres! RS 

RTS PC : RETURN 


SEQ 0112 


ceneece 1/06 
CZR6RC .P 0e- 


xg 
‘g 
ft. 


50018 023520 
1000 0e3Se0 


023570 








MACY11 30(1046) O2-DEC-77 11:59 PAGE 114 


#RKOG INTERRUPT SERVICE ROUTINE 
-SBTTL #RKOG INTERRUPT SERVICE ROUTINE 


if 


r. 


5, ab SE AE 96-96 S a A a  a a a a 9  a a a H 
THIS ROUTINE WILL SERVICE ALL RKOG INTERRUPTS. 


PERFORM ONC OF THE FOLLOWING SERVICES: 
) SE ‘ 

; 1: Tet et SBE ESecero 

Ss.) 1 RED, THE COMMAND WILL BE ISSUED 

Tease ses ARE PROVIDED TO THE DRIVING PROGRAM. 

THEY F 

1 ; 8. ot ADDRESS or NORMAL RETURN (SUCESSF 
) A:CONT CONTROL ERROR RETURN 


FOR NORMAL AND 
PARAMETER BLOCK 


ree TUE SONTROLLER ERROR OEE RETURN OT ie LOCATION E.CONT CONTAINS 


ROUTINES 


g Be AE SE HE HE SE HE He aE HE HE aE a a a a a a a a a HH HE 


INTR: MOV RS,-(SP) ST RS ON THE STACK 
MOV R4;-(SP) ST RY ON T! TACK 
MOV Ra, ~¢ ) St R3 ON T TACK 
HOV Ra? cep) SR TORE BY ON THE STACK 
MOV Ra’ cep) ray Ro oN T TACK 
MOV RKBAS Re ;LOAD Re TO RKO& REGISTER 
MOV RKCS2tRe),T.CS2 ;STORE se 
BIT “MDS, T.CcS2 * CHECK MULT PLE DRIVE SELECT 
BEQ iS >NO CONTI OCESSING 
BIS #E.MDS,E.CONT ;SET MULTIPLE DRIVE SELECT 
ISR PC, R. CONT :REPORT ERROR 


ies. + | 


COMPLETION ) 
SSFUL COMPLETION OF COMMAND) 


eitd 3 RETURNS, THE ADDRESS OF THE APPROPRIATE 
WILL IN RS. 


SEQ 0113 





c RK611/ FINED MACY11 30(1046) O2-DEC-77 11:59 PAGE 115 SEQ 0114 
ESRERC CPT 1 BS _bec-55 11:07 #RKO& INTERRUPT SERVICE ROUTINE 
bile 024034 000137 026214 IMP 1. RTRN 
He 023612 1S: TSTB . ISRL ee: OR RELEASE 
it 4 BE AVAILABLE 
1 3612 CLRB . ISRL 
el 0 - BR : 160 ING INTERRUPT 
1 D24OSE SS: LRB ; 
eI BSupes bpoia? «bBette MP 1-9 cmp . DRIVE ATTENTIONS 
ci 024066 032737 010400 023520 6S: BIT #NED!UFE,T.cS2 tnt es TENT DRIVE OR 
1 413 BEQ 7NO, WAI ACCESS INTERRUPT 
& o2 MOV T.C i. 08g RY F NUMBE 
1 1 BIC Bic >,R4 i KEED_ OF 
61 1 1 MOV Bi ocK AQORESS 
1 1 023516 MOV PKCSLtR), ,T.CS1 ; hOOaT 1 FOR STATUS REPORT 
61 1 1 IMP 
1 1 D 2 7S: MOV (RE) T.0S TA R FOR COMPARISON 
cia GELS? GUG97 SOBRE GESESE 7 NY RSRRCEEReT-O5 SSID SPPORISTSDEIES EV" LAR 
61 024140 001041 BNE 1.100 3NO, CONTINUE PROCESSING INTERRUPT 
6139 -CHECK IF Any DATA T R ERROR EXISTS 
140 024142 032737 164000 023520 BIT SOLT! WCE! UPE! ORC Ff cS2 
1g 1 1 BNE T 
143 eatytsd B02993 000014 023534 MOV ARERCR2), T.ER i NORE ERROR REGISTER 
6145 : CHECK FOR DATA RROR 
b14e 024160 032737 125700 023534 ” BI BPR! OPI LE EOE FivRcr ase recy 
big 024166 001407 BEQ 11S ”, WAIT FOR RELEASE OF RKO& DRIVE 
6150 170 10 023570 10S: BIS #€.UDAT,E.CONT NEXPECTED DATA TYPE ERROR 
1 Oeveie ISR PC_R. CONT 
i 1 14 IMP 1. RTRN 5 ORE REGISTERS 
6154 ane opens? 023616 11S: CLRB WW. TIME i T Ee NG Sunt: THIS DRIVE 
i i CLR Wd. ORV THIS DRIVE 
HB Spelt Bio te Rov PBPK as funk 
1 O24222 052765 000014 BIS #ORVSZD,P. et I 
b160 oe4 30 7? CLR 0.WAIT fh fe me eis a S REGIST Fon 
161 oa Bo737 a ISR PC. R.ABNL INGTION 
bibe 024, 1 IMP I. RTRN 60 RESTORE REGIS 
164 244 0137 1.100: MOV 0.WAIT,RS anaes ane OCK ADDRESS INTO RS 
bles 250 Batons BNE 71S COMMAND NG PROCESSING 
ble? 024252 000137 025176 JMP I. ATTN NO, YES BO, PROCESEING 
6169 O242S56 013704 o23520 2s: MOV T.cS2,R4 ;STORE RKCS2 FOR DRIVE NUMBER 
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ERRERE. Pil Gs-bec-7F Li: 


poe Wiesel BIC 
| 8 


POOP OO OSS SSS SSS SSS SS Ors 

De tae Be an es pe see Be ae Oe Eee fo fe De te ee ee 

NERLGC LS BBLERPERH—BBaINoaz 
ee ee 
g %y 


et 
aay 


fica © a HY 04 eee Be 
e 
vr 


sate 


TRN 
MOVB 
JSR 
am 
i a 
1 BIS 
14 
15 JSR 
p51? JMP 
i BI 


Ss 
ra 





forororo 
Haat 
ess) 


% 





emt a ROL. INTERRUPT "eed tiPrcthec™ 


8tC<DRVMSK>,R4Y ;MASK OUT UNNECESSARY BITS 


ere ;CHECK IF DRIVE NUMBER IS EXPECTED 


Some iG cRReGHEE POET PELESE SPEER c 
gag" ee Ee 
ath §2),7-CS1 ie ToRe Totus REGISTER 1 


IN nee (Fe2 ve teh TION SET 
Pézr.nonn TING ICATE Rone evUm 


SUEXATT,P.PRST(RS) ;SET UNEXPECTED ATTENTION 


auth pas PATTERN Ao Post Tron INFORMATION 


Relat .CSIC(RS) ; RROF 1 a STATUS 
. H ai; _ I ION 





T 









we 
us 
von tant 


RO,I.CCLR ’ 
#NED!UFE,P. esac ; 


RO, I.STAT 


sah CYBas 


NTMSK, T. ASOF +1 } ae 
#E.CLAT,E.CONT Set ps DIO NOT RESET 


eaTRN i REGISTERS Re 


#S.O0SC,T.MRe ;CHECK IF DRIVE STATUS CHANGE CLEARED 


pee ete a T CLEAR. 


i. CONT SERN INATION 
p Roe COAT’ 


Fedseate ca CONT nae RROR 


SEQ 0115 





Ce eS Net TRA! ROP tein RI Nil et AR 
| RERE Pliee Be-bec-9F iison CYP sO AGE inPERRUET & Cenviée ROUTINE SEQ 0116 


| 000014 SS: BIT #ORVHRD, P.PRST(RS) ;CHECK IF DRIVE ERROR 
023542 84 : .PIP, T.MR2 iB F YCLING DOWN 
Beblg Rove fri Hoke Cae ee BREE NDS FOR BRIvE TO CYCLE uP 
IMP wig GO RESTORE REGISTERS 
=F De” 9 RESTORE REGISTERS 


-SBTTL #READ ALL HEADERS INTERRUPT SEQUENCE 
023516 I.HDAL: MOV RKCS1(R2),T.CS1 ;STORE CS1 TO CHECK CONTROLLER 


023516 BIT ERR, T.CSi IevECk JE, CPYTROLLER, ERROR 
Gio GVA HRREER YARTARS.f0Bagggre conmuere 


allt CLR ; 
0000 Vv if (RS) ; 
“ ome e,T-ts E sti - : REGISTERS 
RTRN ; 
ies rc. ap pe: ND 


cA 
IMP 1. ATRN ' RESTORE aa 


16 
14 
i$ 953235 °S ay TNTPSK (FeO ROF Tigi cn DRIVE ION eabende” 
te O.WatT OMPLETION 
i 
T 


“TIME coe T TIM 
ce BAN, Ahee 
7S: MOV HOR. AD, R1 ;GET MAIN 

Roy ERBECRRY. cata SET EXART HGR OF MEER. 
MOV RKDB(R2):(R1)+ GET R 
MOV R1. HOR. AD ; F HEADER 

Vv RKe (Re) T.cS2 ;STi OR DATA LATE 
BIT ,1.cSe : 

Cc CT 


Se Pty aor He 
cine TIME CLEAR WATCH Cont ON on bat 
poset Rie SEASONED, FEOER BRIBIRpeovER FOR SECTOR cour 


ESAS RRU tte Ca att Tah ey be pa ee ee aoe 
staat atateatatat aaa Tt P 
5 to rein W aes 
B-CoReeeenooc 





JSR RO, 1. 1SSu ices SECTOR COUNT 
I. RTRN :E OR _RET URN 
000056 MOV T.MR3,P.B11(RS) ERD SECTOR COUNT 





eT 1/08 -Dec-7 it: 
* aig Baoia? Gecei4 


025176 016237 000000 

12 1441 ape: 
025214 164000 
besee4 900014 
O2S232 125700 





3: 
e337 Oessi0 108737 Gesses 
| 
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ces 


023570 


023516 


023516 


023534 


023534 


023570 


000014 


023516 


023532 


1S: 


NOS 
3011046) O2-DEC-77 14:59 PAGE 118 SEQ 0117 


rcwna aE a 


ISR 
Moy B. ROORESS REGISTER 
Bie” e ior eatie Sa 14S CERT Format AND 
ee PREM. AU Ma ae 


BIS ae. OLT ;SET TE WHILE UNLOADI'G HEADER 
ISR tonto ; eB 
IMP 1. RTRN ;RESTORE REGISTERS 


#DRIVE ATTENTION SCANNER 


: MOV RKCS1(R2),T.CS1 ‘a , TER OR COMPAR 
Bir ScERR, »7.CS1 F CONTROLLER’ OCCURRED 


:CHECK IF ANY DATA he ne EXISTS 
BIT #OLT!WCE!UPE! NEM, T.CS2 


ROV -AKER(R2),T.ER IRIE TeSEPBersren 
St shrine penn 


BEQ ;NO DATA TRANSFER ERROR 
8 ae. s¢-.08n, . CONT Recon Cree TED DATA TYPE ERROR 
MP I. Feat an STORE RE 


Bi, [filo sracrmygense mons 
ne T Tien, va OCK ADDRESS IN RS 


coin PROGRAM DEVICES SYATUS REGISTER POSITIONED FOR DATA TRANSFER 


JIMP I. ERRC ;GO REPORT ERROR 

IT #D0I,7.CSl a BT TENT EGn 
a are IVES, oBEOCESS. TERRUPT 
MOV RKASOF(R2),T.ASOF ;STORE ATTENTION SUMMARY 
TSTB T.ASOF +1 ; CHECK IF ANY ATTENTIONS SET 





RRR eT 8 bee-PF TNSa | MACY SOLRIG? aPFeRTion scammer "OOF 149 SEQ 0118 


a -NoAT .CONT iB bat Hae IN ATTENTION SUMMARY 


Soa 


BS 7 ex 
1 eerie IMP 1. RTRN : REGISTERS 
023617 BITB §$INTMSK,T.ASOF+1 wee F INTERRUPT 
% Bis a -UATT . CONT is ee ATTENTION 
IMP 1. RTRN : ORE REGISTERS 
Hove PYDRVACRS) RY ip earae m — 
BIT #E.UNLD,P.PRST(RS) ; Vir IVE UNLOADING 
She 1B NLD i Oey VE IN POSITION AFTER ERROR 
Be RRMI GRO) CLEAR AAINTENMICE REGISTER 1 
ISR WOR, Seg cSt ; eit WITH ATTENTION HIGH 
Hoy s ite 00_MESS B 






HPC A ER re eA atte ter come 


TPS RST, STOR MEU RIE,PRESTE 
ermine RR Nal gpnnce 


sap 


ga SESE 5 






000014 
023516 13S: : T.cSl ; 
as Ronis Sau Bees STATUS CHANGE 
0000 MOV T. P. (RSS :S 
h00033 BITB TTRSK! PLASOFS1 (RSS ; ; NTION RESE 
" BEG 1 ; YES, N T ESSING 
02357'0 -CLAT,E.CONT ; iM I BNO RESE 
JSR PC,R.CONT : FLAG 
IMP 1. RTRN ;RES GISTERS 
000040 15S: MOV T.MR2,P.ADO(RS) ;STORE MAINTENANCE REGISTER 2 
000040 BIT a5°08C, P-AOOCRS) ;CMEGK IF DRIVE STATUS CHANGE 
Q 1 2 YES NTERRUPT PROCESSING 
000014 BF8 1B OSC, P.PRST(RE) se DRIVE: status CHANGE SB NOT CLEAR 
BR 1. AERR ;GO ; 
16S: CLRB  W.TIME sRESET TIMING ON THIS DRIVE 
CLR Wd. ORV AF PeR bat TIMING Botnt 
ISR PC. R.NORM *REPORT SUCCESSFUL COMMAND COMPLETETION 
BR I. RTRN ;RESTORE REGISTERS 





thee wee uh 


| C10 } | 
SEREREEINS “08 BEE DEFINER, "ACYL 20416, BR BRom waddcln PACE 120 =e 
.SBTTL #ATTENTION ERROR HANDLER 
000014 I.AERR: BIC SORVPOT,P. deoetiaw éPE BE oP PRAT APBING IN PROGRESS BECAUSE 


u: Roe ie oe a ORIVE 


bef osicesi eee 
‘s . nat Seer ecct ROLLER STATUS 
ae d 3ST TEP LER REGISTERS 


} 


| am iettied 
—_ 


seteoeeRee se ata 


:ER, (RS) 
4 Be OS(RS) on 
a i le 
a NTMSK,T.ASOF41 } ION RESET 
Eile pr,gcomt EY oANPD HEA BBR reser 


, ; ORE ISTERS 
2s: SORVHRD P.PRETCRS) CHECK IF AHARD DRIVE ERROR 
‘ .PIP, T.MR2 ic S UNLOADING 
#€.UNLD,P. rend? UN. TO ERROR 
INT A. TIM Bao THe EE 
-BSEC,W. poe UP TIME 
e ? 
ihe REGISTERS 
.SBTTL #ERROR CAUSING DRIVE TO UNLOAD 


aE 


CEETEEE 
SRHeBSBNE 





I.UNLD: BIS 8e. ,P.PRST(RS) IVE UNLOADING BECAUSE OF ERROR 
MOVB Bor sctRaT *T.cSl_ ; N DRIVE CLEAR 
758 ; IVE CLEAR 
RTRN 
TB NTMSKCRHD, T. asofs “ont rhe ATTENTION CLEARED 


MOV + BE-CLAT E. -CONT ; TON DID NOT RESET 
BR 
I. PC,R.CON ORE REGISTERS 


15S: BIT #S.DSC,T.MRe soe CK ir IVE STAUS CHANGE RESET 


VOSC,P. pastry” ES, COHT OR STAUS eto DID NOT CLEAR 
20$: CLRB W. TIME sRESET TIMING ON THIS DRIV 


Eizst 


Cor roo 

Firttequcguas 
ROSE KORTE 
Sricw 





o 
Be 3 
<= 
w 








~ CZRERCO RK611/06 USR ree MACY11 30(1046) O2-DEC-77 11: 
| CZR6RC.P11 O02-DEC-77 11:07 #ERROR CAUSING DRIVE TO UNLOAD 


ese] Osesi0 os7a? oe7ele 55R 
Fes Beesic B1ge01 I. RTRN: Rov 


COCrrr 
RFS Ft: 
DONE 
a 
4 
bt 


i CEPOR TIME COUNT 
T pee 


i ¢ O RK611/06 USR DEFINED MACY11 30( 1046) C-77 11:59 PAGE l2e 
/¢ -Pll b8-bec-97 11:07 SCONTROLLER CLEAR ROUTINE en 


PETT TT TET TTT TT Terr TTT TT TTT TT TTT TTT ttt Tt tt ttt tT 


rou 
tx 
~ 


bub .SBTTL #CONTROLLER CLEAR ROUTINE 
| ede Rr ae eee 
46S ee = INE W D R TO LEAR THE CONTROLLER 
bee H ano CHECK TF THE CONTROL ER ERRORS ARE RESET ON IF THE ERROR TS NO 
646 :% THE ROUTINE AS CIFIED IN A A. CONT nut BE CALLED wit” 
cues i geet SET IN E.C 
64 ;% REGISTER USE 
647 3% wwe e wee oee 
e435 i RODRESS OF RKOG REGISTERS 
nae 3 Re ADDRESS OF PRRAME A KReMET eA oe 
ey j #CALL rf so Oe ERROR RETURN> 
64 i aE CRA 
1 : om MOV R,RKCS »; ONT! 

e eres Bige3? 59003 3516 MOV mci thes! $8} STOR ah 1 

1 3516 BIT STOR 

BEQ ug ; R_ PROCESSING 

990091 023570 BIS #—E.CCLR g CONT ; ER Or D NOT CLEAR ERROR 
4 7 724, ISR PCR. CON : 
4 MOV (RO), RO ;SET Le 
Py RTS RO 3 
bugs 026274 O1 000100 ooo000 SS: MOV #IE,RKCS1(R2) 
64 112873 177777 023612 wt 1. ISRL Set ay PT ENABLE ISSUED 
6494 1 720 TST (ROS+ J 
649S 6312 000200 RTS RETURN 








¢ : A vueaat 8S OF Ine MACY11 UG) Ore) ao tony b by isa fete 123 ae SEQ 0122 
-SBTTL ##COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


Ee s gaa iain aaa ance iamnacesnaas eal ncgiaamepenIpa IRE aE: 
a is THIS im i NEL IF 6 CONTROLL R 
6 * WILL ROUTINE cIFTED BY THE 
e Pade 
4 ; pevisteR = 
508 : Re ADDORESS OF RKO& REGISTERS 

# ADDRESS OF PARAMETER BLOCK 


: 
3 


— <ADDRESS OF ERROR RETURN> 


ROUTINES USED: 


3 SFR 


1.1SSU: Mov (SP) 5 ST 
HOV Lee Paar 
Bice oat ie age i ; ae le 2 except 
is: ‘eve meceithes Lise, GR READY 


BST A SET om ernon occueRe 


its, T.cs2 ieee de otter BORTROLEER ERRORS 
Fe rmeagoo hata Tp CT FLAG 


1 
1 
1 
1 
1 
1 
1 
1 
BS 1 


ge 


ies 
o+0-4 


Byrn 


CHECK IF ANY ONTROLLER ERROR IS SET 
2s: BIT To! ,1T.CS1 

BIT E!PGE!NEM! NED! UPE!WCE!OLT,T.CS2 

BIT LC!OTYE! FMTE!ECH! BSE! HVRC!COE!DTE! OPI!DCK,T.ER 





#OR.CLR, (SP) ;CHECK IF CLEAR ORIVE 


i 


c RK611/706 yen OF 
CSRERC Pit be-bec-77" 


026516 052737 001000 


Tik 


023570 


de 

“COMMAND I 
Bre 

3S: JSR 
10$ 

Ss: MOV 
Tet 

RTS 

7$: BIS 
10S: t T 
V 

RTS 


G10 






Cc :59 PAGE 

BY bRIVER CERV ICE ROUTINE 
SS evHRO P.PRST(RS) 
RO,1.cct{R : 

SIE, RKCSI(R2) ; 

(oP) + ; 

(ROj+ 3 

RO ;RE 
#E.CERR,E.CONT ;SE 


t 
( 
RO 


R. CONT 
+ 
),RO 


5 


ENABLE 
PE GR NORMAL RETURN 
TURN 
ba¥ven —— 


Tust §} 
ust OR ERROR RETURN 
TURN 


Bee 


et 


SEQ 0123 
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MACY11 30( 1046) 
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O2-DEC-77 11:59 PAGE 125 
#STORE RK611 UNIBUS REGISTERS 


-SBTTL #STORE RK611 UNIBUS REGISTERS 
5p, 5 aE AE a a a a a a a a a an aaa aa aaa 


ADDRESS OF RK611 REGISTERS 
Tttttiii iii iiititiitiiiiiiitiiiriioio rr Serer 


Le 

3% THIS SUBROUTINE IS CALLED BY THE RKOG DRIVER TO STORE ALL 
H RK611 REGISTER IN TEMPORARY LOCATIONS. 

* . T 

_ 138 an PC,1.STOR 

: REGISTER USE 

# 

* 

& 


: RKCS1(R2),T.CS1 ; STORE CONTROLLER REGISTERS 
MOV Fucseine) tees ; EXCEPT DATA BUFFER 
Rov ( Be 

¢ ), . 
nov ( Jot 
MOV (R2).T. 
MOV OF (RB), 1. ASOF 
nov Rar Ba 
( ), .MR 
MOV PC of 25 T m8 
MOV RKE GP 7 st Pat 
RTS PC ; RETURN 


SEQ 0124 


& 0 RK611/ Hen _OGF Ince. MACY11 30(19%9) SS conr rree sthise PAGE 126 SEQ 0125 


Pil 
6599 .SBTTL #STORE CONTROLLER STATUS 
Hea } 7 ga rau aaa ca aaa cae ga peiracie a mettalecebar nities ie 
x TH s BY THE RKO& DRIVER AT PRIORITY 7. 
as i FOLEORING REGISTERS HILL BE STORED: 
bebe i a REGISTER 2 
a 
Bde  % one 
e61 - 
eei2 * arr I qresISTER 
els i ae 
6615  ¥CALL PC,I.CSTS 
eis eee 
b618 : * THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 
i 
i REGISTER CONTENTS 
iC sr ne 
J 
: Re RK ss 
is RS ANDRESS OF PARAMETER BLOCK 
; ; #% KRRERKELE cEERELE HERA REKEA ERK ESHER KEERERKRRAKSERERMERERMRERESERAEE 
.. 





Se 





042765 CSTS: BIC #177741, P.CS1(RS) ;CLEAR @ BITS T FUNCTION 
042737 BIC er eheoe TAT 
205 BIS heal x A We ; i ORMATION 
208 : I.CST1: MOV 2) G82 ‘@ st TAT qREGISTER 2 
7 1 Moy ( BB Re) 3ST 35 f ais ER 
7 1 MOV ( }*b Bre FS) 3ST SECTOR 
7 1 MOV RKDS(R 8-05 ST TATUS REGISTER 
744 Ol MOV RKER( PER :ST GISTER 
6639 752 Ol626 MOV RKASOF ( Erb) P {a s STORE ofrTeNTs Y AND 
6641 026760 01626 MOV RKDCYL (R2),P.DCYL(RS) :§ SE YLINDER ADDRESS 
bbe 026766 pA8sBe RTS PC STORE 


' 
i 


ceneaco ‘Veet USR dir MACY11 30(1046) O2@-DEC-77_ 11:59 PAGE 127 


02-DEC- 1:07 #GATHER DRIVE STATUS 
| beue .SBTTL #GATHER DRIVE STATUS 
eeu? + ELEESEERRRPRAESERSRFARE REALE RERSKRSERSKEKELEKE LE MRE RESEEREEAEMERESYE 
4 TINE WILL THER DRIVE TATUS 
BYTE Tees vee Poay D THAT IVE 
BAS PREVIOUSLY B Been’ SEIZED. IT RUNS AT PRO! Y 7. 


es 


<ADDRESS OF ERROR RETURN» 


THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 


REGISTER CONTENTS 


RS ADDRESS OF PARARETER BLOCK 


ROUTINES USED: 
I. ISSU 


3 3636336363696 36 9896989 9 9 9 9 aa a a a a 


000026 I.STAT: MOV #1,RKMR1(R2) si MAIN GISTER 1 
eo Gk 
AT 


SPSS SRS CSCS SNS A Seese 


023516 MOVB BOR, L,T 
Fay °° 01 





S$SSSSEESEEESSSEEEESS SESE ECEEENUEEES TOSS 





R 
023516 .SEL,T.CS1 
Jor RO. i TSU rs 
ooo0s4 MOV T.MR2,P.ALI(RS) 2 oF A BYTE 11 MESS A 
MOV T.MR3_P.B11(RS) RE STA L $6 re) 
CLR RKMR1tR2) : IN ISTE 
. ATUS BY 
023516 MOVB SEL,T.CS1 ; 
JoR RO,1.1S$u : TUS S 00 
00004 MOV T.MR2,P (RS) : ayoe TE OO MESS A 
g MOV T.MR3_-P. BDOCRED : ORE STATUS BY E MESS B 
023544 BIT #S.PAR,T.M :CHECK IF BAD DETECTED BY DRIVE 
BEQ 5 :NO, RETURN 





NN Tn 


‘ami ga er MACY11 30(1046) O2-DEC-77_ 11:59 PAGE 128 SEQ 0127 


02-DEC- 1:07 *#GATHER DRIVE STATUS 
002000 023570 BIS #€. DPAR, E. CONT ; INDICATE BAD PARITY DETECTED BY DRIVE 
# arte Oe7e42 JSR PC.R.CONT *REPORT ERR 
3S: nov (RO), RO ; LORD RO FOR ERROR RETURN 
RTS RO } RETURN 
052765 001000 o00014 SS: BIS #PBSVAL ,P.PRST(RS) ;SET PARAMETER BLOCK STATUS VALID 
: foie bor 905720 I i {R03+ AUST RO FOR NORMAL RETURN 


Paes pales ppm kgf © Penge SS SS aE 
SEREREOLSO 96 USE_DEF EMER, MACYHL SOLAR, BRSOER RerAAES® PACE 129 seo 0120 


e710 -SBTTL #COMMON DRIVER RETURNS 

Fr perece os77 198336 eters ise. TE ore, [bvteate T FUTURE DRIVE INTERRUPT REPORTING 
\ Be igs 029617 R.NORM: oie ae te ! its Fede WORE UTURE DRIVE INTERRUPT REPORTING 
3 isos? S83ei¢ R-CONTS CRE un TiRe sANMIGIT Fen Bo EIMIng On THe PORTING 


Bh el tee Gee GEE HOR con i fabtRaHE UBDRAUN EN Bd Re BOA 


RTS 


| M10 
| CZRGRCO RK611/06 USR DEFINED MACY11 30(104%6) O2@-DEC-77 11:59 PAGE 130 SEQ 0129 
CZRERC.P11 O02-DEC-77 11:07 #COMMAND INITATOR ‘ 


z .SBTTL #COMMAND INITATOR 
bree Te a ea eee celts ax caaaeeell 
eres iS WUMPRSRUNEFHILs BP TIE beh SEMPRE he FECL n 
6730 i SPECIAL ARE ALSO EXECUTED: 
e is ste E STAT 
6738 # THE ABOVE ache ARE say INTO A SEQUENCE OF COMMANDS 
6740 7HCALL J C. INIT 
eras i <ApDRESS, OF PARAMETER BLOCK> 
Brug it FORTHE SECuENT JAL, OPERAT ONS, THE DRIVER WILL LOAD THE 
B77 ie ROUTINES USED: 
e549 3 1 Sn 

s@ -STA 

s -CCLR 


5 Ae SE AE SE SEE a a a a a a a a aaa aa a a a a a HH HE 


5 sents -(SP) 
an ee ee 


a ter 


g 
ZRaRR 





ei 
+ 
»C 
<<<<¢ 
= me ‘ ‘ y 
HAAR AR AA 


1 a16(5P RS OCK ADDRESS 
(SP) 
P“DRUNCRS) RY 
6 BIC 8tC< $ RY 
b MOV RS. PBLKT BLOCK TABLE 
7 1164 023617 MO T. Dav CRY), INTHSK BO INT 
6 7 116s 023616 MO *DRV(RY) id. TIME TC TInER FLAG 
£770 13737 023600 023632 MOV id: SEC, W.ORV HE 3 WATCH-DOG TIME 
is 027362 013702 o23554 MOV RKBAS, R2 ;LOAD R2 WITH RKO& ADDRESS BASE 
; RESET ALL BITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT 
£08 DREYE FOR DR 
6776 : WRITE FOR WRITE CHECK 
6778 ; DROP DRIVE FROM TEST SEQUENC 


VE 
INHIBIT BUS ADDRESS INCREMEN 


6779 





r 
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BIC 


aq 3220 ne 


23 
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C-77 11:59 PAGE 131 
ATOR 


SEQ 0130 
#tC<DRVUSE !W.WCK ! NOCHK! DRPDRV! DTBAII> ,P. PRST(RS) 
a cst, RO bee Ba at  Poeaine, 
. Bhar, Rl CULATE * esa 


a ee ne TURN Pear 
FE crores 


(RS) 
a on Feu res GISTER 1 
P. enocns BE TAL COMMAND 


CIAL COMMAND PROCESSOR 


SUNLOAD,P. m0. ae COMMAND 
: ome, 


SageK, oP. one ge A fron My A 


SORVEDS,P: PRTC R ae 





s P.CMND(RS) 

Pow paths ens 
porrest, P.CMND(RS) Renal mat 

Be SE Ral IN ear 


TSPL,P. CHOC), MGs IF en SPINOLE 
4 BIN W, DRY rst? Oho UREH B bos ihe FOR 1 MINUTE 
8s =e ONO CON ONT INUE 


TTT er sss 
—— 
' 


Ob 1/08 ee DEF NED MACY11 sO Oe) OTN TaTOR Al: ad 132 SEQ 0131 













wu i cs: flo HRSTEIHLOMY og iL 0H0, PORT TOG EOE. SEEMED 
BIC DICCOEMTE COTS PLCSIt A Al Bite excée FORMAT 
MOVB —P. CMND(RS).P.CS1IRS) :MOVE COMMAND INTO CS1 
Seas buete! BIC Bil. WCK,P ithe We WRI 
if t *P.PRST( i CK 
Bre 1 : 
' MOV 
' 10S: JSR iS 
; py 
03 023516 9 








wee 





bo 
ra 
ea) 
Camo 
+ 
Do 
ped 
=z 
+ 
ah 
4 
= 


ee 


rs GISTER 
aR iGy ae 
»P. prstiRs} © SHOULD BE ISSUED 


or 3s 
Bn 


DVT Bere 
z 
Be 


eT EEEE 
3 





eu. 
2s 

MOV TA,P. esicRs} =i 

BR 268 

MOVB  P.CMND(RS) P. cS1¢ ae 

AY po ey ners) as i ais Bate Che 

pees ##C<8.CFMT!B. eH b: 7>.P +1 sa *h car EAR OL BITS EXCEPT 

MOV .WAIT in te NG FOR 

BIT ote 1I,P. PRSTCRS) 5 ; pe horetr tO, saese INCREMENT 

BIS r P.CS2(RS) ct te BIT BUS ADDRESS INCREMENT 

mov P.C 2(RS) ) arcsec ; ¢ 

Beg : 3NO Kier tea oo INT T ENABLE 

oy pi ake Resa ch 

IMP O RTRN ¢ ie Le ot 


-SBTTL SPECIAL COMMAND PROCESSING 
000001 C.SPEC: CMPB #RDSTAT,P.CMND(RS) ;CHECK IF READ DRIVE STATUS 


ics isis a AERERPAEAEL tau iaeagcbig caer eeet aa 


o 
@ 
wo 
— 
Oo 
=) 
= 
& 
~ 
fu 
A} 
o 
ui 
8 
£ 
rm 
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Gfpene-Pil Ge-bec-7? iisor ™Y*? Noetenaubarsend bliin 












ma titers F re BficCETESe st 
BIC BITS EXCEPT FORMAT 
os wr Prati saul _ 
bry Rati Sha} eagguchsy 819 AND STATUS REG. 1 
FER Fd ; eat ‘ : P 
PRD ues | 
7 HOR p pastors ces 306 4 agrees 
1 'P.CS2(RS) CHECK I re sLECT 
Fm Maton Ble 
oo0020 bie BNED!UFE,P.cs2cRS) P NON-EXISTENT ORIVE OR UNIT FIELD ERROR 
000036 I »P.DS(RS) : 
000014 oe pratt NOTCATE DRIVE 15 SEIZED BY OTHER PORT 





JMP C.ATRN REGISTERS 


nb cat 
6S: JSR RO,1I.STAT nls STATUS 
C.RTRN 
ete HW. WW. TIME eo, Hs ON DRIVE 
000014 fe »P. resrcnsS 


Be ins os, fh | RGR net tae 

£35 030430 IMP Cc. CCATRN fa REGISTERS 

i apie — re PCR. RORERT «=F FRDICATE CONTROLLER ERROR 

fae Baas ee ABoancr a eB REE a 
Geis Goose BETES pommia paRRRR Ss PURLTASRRacAll He ceseygcr 

cee Griese ee RR ita ed WE Lae by roman 





Dll 
| CZRERCO RKG11/06 USR DEF MACY11 30(1046) 02-DEC-77 11:59 PAGE 134 SEO 0133 
| CZ2RERC.PLL oe-DEC-77 an so? ¥SPECIAL COMMAND PROCESSING 

SRDSHR P PRET (RED ah FPnNO CHECK MODE 


oe a 


SRDALHD,P.CMND(RS) ;CHECK IF READ ALL HEADERS 


Reso. wart et Rope i Mi ESARPLETION 
B,BALOC RE) uOR- A FORMANT 


elem Neier ha 
PL nl Tana 
$ NET BE) eo 


scsi cs! ; 


a} 


22288 a i 


o 
—_ 
o 


ee oto ees Five como 


iO 
2 
4 
2 


,P. qnvncns> eR CLEAR 
‘Aeon mie 
C.RTRN ORE aly 


RES tHel ras el coat ND. STATUS REGISTER 1 


AR_IF HCQEREND ERROR RESET 


“8 10, E.CONT a pear DID NOT CLEAR 
PC,R. CONT ; 
C.RTRN + REE PORE REGISTERS 


W.MILI,-(SP) jLOAD 3 be MILI S SECOND COUNT FOR ATTENTION 
RKCS1(R2),P. csicis)” OST ORE cS1 





2 SE 


023570 


Ss 


DOOC 19 36S: 


50001 


R 
: 
S 3g hee 


37S: 
000016 38S: 


g 


SEQ 0134 





F 
é ES : 
o sz z = 4. ‘ g w 
2 ae = bid * & 7 
FE bai ig of & 8 
¢ Sens : gs § 
Bee Sg 5 Hee "pag oo eS 
a xbbas Gi mee Be Bho PES 
é Reavore y Povo, = Be ote 
Fg ee S  F oauhd TOMES 
Se" FOF ld 
Hs = = ps Kul ow we 
MO ee “8 ata @ ate enone 
“~ ce g : = 3 = : 
tee a Pil sei 
4 [PY) > -~ Aa ™e 
re a Ee ee ee 
a 6+ “= i  seteees FS Rov Fou F Vowe FF RS 
anon go SeSrey SebbOOO LS F #2 Set E dvecetalacete 
- % &a uz = 
: “= at Si - 
EGuees Bg HoeeSs SBREEEECS E Fens Bley F BeBETSegtsEsEs 
ener ef § 3 «gz 
ge 68s D Teen nae aaenn s & 4 


o4o000 000016 
000040 023570 


' 
{ 
' 
' 


2254 RSPR BUSSE PBNROZ 284 


Sg cu 


1 
1 41 
1 
1 
1 
1 


dd kk dd wd nd ed md 


+ 


a 
iS 
i ess See eh ee 
oo 






| aReRecentBB-Bec-PF Tisa7 §—ACY4! SOLER EE Ta. “Command PROCESSING 





SEQ 0135 


7 


Cerone Pit “B8-BEC-77' 11:07 ey CTRL To at 6 


x rr] 
i | 
a: ee: 
2 * gy 3 3 re Sal pore » 
in 5 a # & $2 i= Se 
4 E &s ¢ 5 ams fe 
= 2 ’ S a : & a5 
5. © Soa FSG. . oF  ySFuredeekud 
eg &. E ole’ = ste Seer 
a a “ane s 
zoe yyy. Zo 2  § Be : m2 
=) eee See 5 & x * ibe 
ace gS : 
g PES ue 
-_ = vi a z cet Pan “Maal 
Sie a tied i iE cs 
eurmevstntsytady S80052.e F Ely SS i ast nena 
Paci Bi 
- - os Me * 
dddeusceavenzanee wasects £2: any i eeessbeiSsfels 
eu ® i xz 
o- x rd x o 
4 $ Zo Te eeeeteneen B % 


iat 
fe 
tiuaeeeeeeeeaas RReehics ar RmRAe 


POPIOIIEMEEPEEDEEDIMEDERED FAIIIAIIAIIIAAT 


— 









~ 
SoG Ses 
Son hen Kom hon bem hon bem kom hen hem hem hen hen bem hem ken) 
KRARKRKRAKRAARKRAKRARARKRA 


TL 


ee  , 
i 


a 





| Ree ete BE Bec OF ITER, «MACY! SBLAONAL TO BINARY CONVE Ha oA 
| 11g 138 o8828) 000071 ee 8°9,R1 

ii : 170000 T 8170000, (SP) Bene T MUNBER GET 10 BIG. 
if & : By {B} cco isle ron aren 

x 7 
1 1K 1 (SP) 
i vk eee 
i isis 1€8761 oo0060 2 370,81 Pome ASE TT SUNK 
us a ave ey SP) ; NOTHIS DIGIT 

: ; NUMBER IS NEGATIVE 

Le BBHSeS ce ee ts | ISS TE ManeeR 1S vee 
135 (O34 4? oo0010 us: HOV (5P)+,19(SP) Mi 
Bese te Hm 30 
1 44 12600 ; 
i a ooooc2 BOD we, (SP) ; T RE 
i 4s2 Ss: TST (SP re Pat PARTIAL NUMBER FROM STACK 

; pizene roy Big iReet9 Ri 

O15e18 " Peps tsp) Ly ON STACK 
.SBTTL ROUT INE : 
pRTINe TO TYPE ASCIe 


Se ay 
a le a: Se ae 


SFILLC CONTAI CHARACTER TO FILL AFTER. 


Cie H Abbe? BuARACTER. 


001157 STYPE: 


Se 4 


ow 


NN NNNNNNNNNNNANN NAINA NN NIN NNNNNAINNNNNNINNANNNNN NN ANINNNINAININSININSGS 


ee ee ee ee ee ee ee be ee ee ee ee ee ee 


OSS LERTOR ASSENT LO Gow VEE OH OSOIER LOS ss 





ee bee ee ee ee fede 


uw 
are 





M bsiNc A TRAP INSTRUCTION 
YPE ME SADR 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


331 T A TERMINAL? 
Hee IF NO TERMINAL 
HS ebteess, oF ee Fede TRI 


ame SnFT ERMINATOR 
i TERN OR POP IT OFF THE STACK 


CZRGRCO RK611/06 USR DEFINED MACY11 30(1046) O2@-DEC-77 11:59 PAGE 138 SEQ 0137 
CZRGRC.P11 O02-DEC-77 11:07 TYPE ROUTINE 


5455 B3i8te BE55P2 ooo002 gg: BB 43 ef? {ABSUST  nEfunn Pc 
IES rai - 2 he pm home 
031702 ii 


be bb bb Pe a ba 


BIRR PENH SBEVRRZS= BIa ou z 


7 
3 
7 
? 
f 
= gyevot REPORT 
5 B316 Batt es: ia Sp ys Re i hare CHARS. ? 
2 031566 013746 001154 MOV SNULL,-(SP) $3 9 OF FI . NEEDED 
7 1 000001 7$: 33 A TO BE ? 
FI BBteAe BREPSP co1e3e a BE src ee CAN penis Sothird ey 
05337 HH COUNT AS A COUNT 
rise Salers Aapg 21702 Loa ooo he 
g ain TAB PROCESSOR 
rig BUGLE Aueris pomowe === SE: HAS ge ted HT ARENET gag, WITH Soc 
2 O31 031702 Its 87; ii HIF NOT AT 
z a3 i 147306 STYPEC: Ts78 #ieec IT UNTIL PRINTER IS READY 
foie ales Hie paeere aes EB SuarDaRIT® ier URE aa 
Ba GED car Bho finer EFT Bares cu 
7, i i O51468 000012 oo0002 1S: ee ae (SP) is ACTER A LINE FEED? 
12 O31 (PC)+ 33 CHARACTER 
sla aise ao? ETE Be SI EF lc 
7eib .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
7518 : HATS ROUTINE 1S USED TO CHANGE A LG-BIT BINARY UNGER TO A $01 GIT 
ree Ser UR CO Tease deo hige Mie Ei 
, 555 HIBErORE POSLLIVE Of NEATLY Peo RSG Mit SETHE 
7ee4 ;SREPLACED WITH SPACES. 
7250 Oe Moy NUM, ~(SP) :sPUT, THE uBINARY NUMBER ON THE STACK 


Rion-ausiciseniecipanemds> shinniitcapientatiet te 











CZR6RCO RKG11/06 USR bir. 
CZR6ERC.P11 O2-DEC- 1:07 

7 ' 

7 ' 

7 ' 

7 ' 

7, ' 

7 ' 

7, ' 

7. 


NN 


AOA At At At At AR Att at at at tt 









= 
AAT ATAtATATA 


NN Nee ey: 


Boob60 177777 
0 


000010 


177777 | =177776 


ba6u6e 


ooo004 


irinwrerenennn, NNN NNN 
RAR RARRR ETS 


run 
3a 








STYPDS: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
REG 
MOVB 

1S: CLR 


s K,R3 

a’ ,(R3)+ 
TBL(RO),R1 
»RS 


8 
BUgMeaeys 


ORGRSPOR 
2 


SReae 
a 
oO 
-o 
g 
a 


SS: £ ) 
MOVB 1(SP) -1(R3) 
$: s’ 
75: Bie 8’ Re 
MOVB Re, traps 
TST (RO)+ 
che RO, #10 
Bre 
BR 6s" 
8S: rsre [SP)+ 
MOVB -1(SP),-2¢R3) 
: CLRB (R3) 
MOV (SP)+, 
MOV (3b), R3 
MOV (5P)+,R 
MOV (SP)+;R1 
Ne tT 
MOV 2(SP),4(SP) 
mov (SP)+) (SP) 
SOTBL: 10000. 
1000. 
100. 
10. 
. BLKW 


SDBLK 4 
"SBTTL BINARY TO OCTAL (ASCII) 


Il 
MACYII SOONVERT BINARY TO DECIAAL AND TYPE ROUTINE 


POS. 
tet 
x 


IRST noe A BLANK 


ee THIS BCO 
‘ae | 
BS Aaa? LEADING 0’S? 


DIGIT 
BCD DIGIT BY 1 
nerant 


A Reapy aq 
ie Oe 


Pet LSD Mo esc IRST NON-ZERO? 


ae pain 


“4 ae 


NTO Rl 
Pop STACK_INTO RO 


: : iModust THE STACK 


;;RETURN TO USER 


AND TYPE 


SEQ 0138 


{ 
| 
GIT I 
IT IF DIGIT 
T THES. TER IN THE OUTPUT BUFFER 


Cc O RK611/06 USR DEFINED 
Cc. Pil O2-DEC-77 11:07 


NOU CWO 


bb bo 






NINNNN 


032356 
177770 





Ww 


NNNN 
oes 


MACY11 30(104%6)_ O2-DEC- 








mee 


:5 8 AP AGE 140 SEQ 0139 
BINARY TO OCTAL (Ascii I) AND TYPE 


33 suoaneononseescsseqneqnqnscssseneocorsegeeceucnsnscscecenccese 
j ATHI s waSCEDD LMURBER An conee 8 16-BIT BINARY NUMBER TO A 6-DIGIT 


item TUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


OF THIS DIGIT 


; Hig HIS DIGIT? 





2 
sae 


' 
| 
sca NUM, -(SP) ; ;NUMBER To. TYPED 
3% ;;CALL_FOR T 
a .BY N 3;N=1 TO 10 6 FOR NUMBER OF DIGITS TO TYPE 
:* -BYTE &M 3;;M=1 OR AOING 
is sds LEO TNG ZEROS 
}¥#STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:"STYPOS OR STYPOC 
pgCALL: oy NUM, (SP) - TO BE TYPED 
# TYPON ‘ + FETE FOR TYPEOUT 
j #STYPOC--~ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3a MOV NUM, -(SP) ;;NUMBER TO TYPED 
3% TYPOC Pig FOR TYPEOUT 
STYPOS: 33P 
Hos 3k SWITCH 
HOVE re siete TO TYPE 
apo 33 ADI 
STYPOC: MOVB ; T THE RO FILL SHITCH 
nove fISET FOR SIxce) Dich TS 
STYPON: 33 SET 's 
MOV 33 
MOV ii 
HOV 33 ve RS NUMBER OF DIGITS TO TYPE 
ADD 33 T IT FOR MAX. ALLOWED 
: Rta aay ale 
HOV Bh f 
1S: $5 ATE OuNTe “ee a 
2s: ROL FORM THIS DIGIT 
ROL 
ROL 
MOV 
I ot77770 R3 T RID OF JUNK 

B g3”7770, Hae FOR on 

TST RY  CTBPRESS HIS 0? 

BEG S$ ttBR IF YE 
4S: INC R4 ::DON’T SUPPRESS ANYMORE 0’S 


as#a <a 


-SSRRAE?, M0195. upeoerinep,mncva 





NNNNNNNNNNNNNNANNNNGN “ NNNNNNNN 
Usage nro nnnanamganaa tana see e 


GIGIIIE 
eon 


ane 


1 032362 
t 032364 
1 


ae ao 


Pe Pe N 
peerirerir ier e 
Ww -— 


233¢ 032440 1177468 146502 








30(1046) O2-DEC-77 11:59 PAGE 141 
BINARY TO OCTAL (ASCII) AND TYPE 
8’0,R3 ; THIS DIGIT ASCI 
SS: gts > *R3 3;MAKE ASCI Me NOT Si Reapy 
MO R388 33 F I 
78: T " A: i THIS DIGIT 
a oa Hie Ye Bae "009 
INc RY 33 72 > oa ’T A BLANK 
6S: MOV #35 )4,RS 33 g 
my SRS get 
MOV ecsP),4(SP) 33 ; FS acy FOR RETURNING 
Mie og HSS 
gS: ‘ 0 33 FOR ASCII DIGIT 
oni i 3 RMI HINATOR FORT TYPE ROUTINE 
OFILL: :BYT 33ZERO F ZERO FILL SHITCH 
SBTTL. TTY INPUT ROUTINE — ee 
"aan imunnenasecescetetena oman pmmaade ea amie tapammncNrCe nang Oe 
Ge ; 33 OF ITEMS IN QUEUE 
ek N: . 6 + INPUT INTER 
TK * ses ?;OUTPUT POINTER 
Tk RTs ‘BLKB 1 ;:TTY KEYBOARD 
-EVEN 
3 #TK e ROUTINE Ize Ti 
aT TINE W NITIALIZE THE TTY KEY 
Py tT HE cae qEeTbA END TURN ON Fe ' ReyBOARD INT PNTERRUPT 
 #CALL: 
JSR PC, STKINT 
iS RETURN 
TKINT: CLR : OF ITEMS IN QUEUE, 
Srain abv Se CaSRT +STKGIN + bbe Ta thes STARTING ADDRESS OF THE 
nov $ KGIN, StKQou c Hur! INTO THe INPUT & OUTPUT POINTERS. 
ney Bavathveces. ice bine FLAG 
TK + ENABLE TY KEYBO INTERRUPT 
RTS a . 33 TO CALL 
2#TK SERVICE ROUTI 
*#TH it rt tates SERVICE THE TTY KEYBOARD INTERRUPT 
a hee i CHARACTER FROM THE INPUT BUFFER AND PUTTING 
i HaRRCTER “CONTROL-C" (#C) STKINT IS CALLED AND 
; XUPON ¢ORN EXIT 1 A MADE TO THE “CONTROL-C” RESTART ADDRESS (UDTSRT) 
étksRV: move aSTKB, -(SP) ;;PICKUP THE CHARACTER 


SEQ 0140 


Lil 
‘eee WSR DEFINED, MACYI1 30(104) _OB-DeC-77 11:59 PAGE 142 SEQ o141 


ee oe ee erg ip IE Poa « 
ii ROL-c 


——— 





ponpenncqteneere Lat tee 


OUI eeaTUOh RTE TA ER, Wren me 


000176 001140 ica. WOR rs enaBEREG aR . ee. T-SWR SELECTED 


Q 6 ss 
es: 
000001 032360 CMP 81, STKCNT 33 a FULL? 
741 001164 PE SBELL 3 ;RING TTY BELL 
ait TST + i ao eae OFF OF STACK 
cat 000023 3S: CMP (SP), #23 33 cree 
Pale 146400 L 3EFxs 33 INTERRUPTS 
741 T (SP)+ 33 TACK 
zat 146372 31S: TSTB TKS 73WAIT F 
74 170206 I aha, -<sp) i bal 7-B1T I 
ra bose) ene Cephs hel Hina cg 
rss 000100 146344 Be 8100, aSTKS Hom TTY KEYBOARD INTERRUPTS 
74 328: 1 STKCNT Hh THIS CHARACTER 
74 000140 at iP , #140 3318 IT UPPER c 
od 000175 ), #175 33 ) foc AL CHAR? 
cay BGT leet | YES 
3s 090078 4S: BAe #855 OSTKOIN 33 pat YF An R GUELE 
BE 52 HEHE cceur A HRRIN esnconw (UE EB! 
Py 032366 032362 #STKQSRT, STKQIN THE DOINTER 
ae SS: RYT : Hs 
74 
7440 
Lonny 
744 
7443 
aude B35eeq 7134 33EXIT IF NOT 

74 105777 146252 TsTe ue A CHAR WAITING? 

Pant 74 ti G2 6 Rove ts (SP) He a 9 OE 

7449 032700 042716 177600 Ic #40177, (SP) tine IT 7- B17 ASCII 

7450 032704 021627 060000 MP (SP), #? i318 T A CONTROL-G? 
7451 032710 001300 BNE 2s :IF NOT, PUT IT IN THE TTY QUEUE 





Mil 
_ CeRERCO mre 708 ineD MACY11 3941076) a 3 Me 11:59 PAGE 143 SEQ 0142 


33;AND EXIT 
FE heh bt bbeleh fb febb- teh Sol tel b-heleh beh -b-t-b-deh-b-tad-t 


POG gO RT ARM a ioe 
G28748 Ag izeG 001134 OoODD: és: ae "Ggutos, bs" a anne IK EGISTER BEING SELECTED. 


Bs Be BEER cose a eyo Speen eens 


032742 104401 033650 TYPE » SCNTLG ane THE CONTROL-G (7G) 


fiers yea aboi7e stews hoe sieG, (SP) Hl eesicne MeV DIGITS) 


al: 


ae 
“ rf 
Bes 
i 


753 iss: GR SA oe 
ata ; CLR -( 33 NEW 


7S: ipi8 agiks ETP hot SRE’ acan 





75 MOVB a@STKB,-(SP) 3;PICK UP CHAR 
ouze BIC #tC177, ( (SP) — IT 7-BIT ASCII 
74 MP (SP), #3 TA ROL-C? 
ante SNE : ; IF NOT 
7480 TYPE TLC ares CONTROL -C (#0) 
rie 000001 Cope ATAG, #1 #79 KeveoarD INTERRUPTS? 
Las 146102 Bae #100, aSTKS BR OMT Y KEYBOARD INTERRUPTS 
= 8S: IMP UDTSRT : Hye Mga REST 
74 
74 $: (SP), # TA T 
74 = anes } IF ONO 
7u30 ion TYPE yscumu + BBR ECHO ¢ CONTROL-U ~ *U) 
at > BR° 188 ea Pua IN . 
7494 
7495 10S CMP (SP), #15 ITA <CR>? 
o38 16S : 
74 ST 4(SP) vee 1s fe THE FIRST CHAR? 
74 BEQ 115 ii 
74 146030 MOV 2(SP), aSWR i 
118: 86, SP 
14S: TYPE SCRLF 55 
oo0001 SINTAG, #1 are oe ene KBD INTERRUPTS? 
tbo En 
146006 155 mov #100, aSTKS RETURN TTY KBD INTERRUPTS 
16S: PC STYPEC HO CHAR 
7507 CMP (SP), #6 1 Eco < 0? 








N1l | 
CZRERCO AKGLI/D& USR DEFINED MACYIL 30(104G) Oa-DEC-77 11:59 PAGE 144 SEQ 0143 
BLT 


1 If Yes 
{83 | 967 





it cy i 
| Be Ee 
i f i e ) HF E BSC CHAR 
14 173, Ht TE exe 
le (8p) + 
tt ee (oe gt ea ee 

. 33GET the NEXT ONE 
asl 188: gyre s ss cyte ?<CR><LF> 
=~: .DSABL LSB _— 
D2 ; - SRERERSSEEEEEREERRAREEERRE REESE RRR RRRRREE REE RRERREERERRRARRKE 
et ihr HIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
Fa: is ’ TA HE. QUEUE 
bes t+ ROCURN HERE oabemiti 
530 ;# 3 ;WITH T ST 1PPEDY OFF 
++ ; 
53 SROCHR: MOV (SP), -(SP) THE PC AND 
ag pooogs —o00002 ea 3 ll ae 
5 3 CLR -(5P) gi 
2S 033244 Rov #€4S,-(SP) 
535 Gas: 
a4 032360 $s: oe STKCNT adh ON A CHARACTER 
: g SccnT 33 TER 
4 oo0004 MOVB TK »4(SP) 3; eR 

4 032367 cre TK , SSTKQEND’ ; DID 1195 OF THE END? 
032366 032364 RYT TKQSRT, STKQOUT’ ; if He INTER 





; punnuese Titiititiit seuaueueneneeneneuensseene 
SATHIS ROUTINE “MILL INPUT A STRING FROM THE T 


P| ile a MES SPORE Eva og gu re src 


A BYT 


£ UUW 
eae 


SROLIN: MOV R3 -(SP) 33 
ie (SP) 33 ene KEY 


STAG, eet 
10S: CMPB #177, tR3) 1 IT A RUBOUT 


a 


sf 
HH rae TER FROM THE TTY 
(SP)+, (R3) He Read. One ¢ ; 








2 Bl | 
| SAE AE DEFINED, ACYL Spc40¥e) OB-pEG-Z7 11:89 PAGE IMS SEQ 0144 





J 3. one ss ;;8R IF_NO 
03 3 Tot (9P) $5 a THE FIRST RUBOUT? 
Ke nove = 8} 938 He A BACK SLASH 
035 MOV §-1, (SP) ::SET THE ghuBouT KEY 
rick nt oe t«idRS soTtyin +388 eneTY? 
033 BLO 4s" tien ie 
033 nove (RZ), 9S jiSET vet s FyPEOUT THE DELETED CHAR. 
ick BR ag $360 READ ANOTHER CHAR. 
O33 SS: oh (SP) Ho KEY SET 
ie HOVE 8, 98 {TYPE A'BAck SLASH 
bs342¢ CLR tsP) 33 KEY 
D3 3N¢ 7S: CMPB #25) (R3) aeers u? 
ete tice i NTLU 33 
Bast 8S: chee , (RI) 33 ER A “*R”? 
ie ee “Behe HHCLEOR THE. GHaRaCT 
03 T eRvIN 33 mi. INPUT STRING 
132 * 3 P ANOTHER CHACTER 
4S: YPE Ss $3 
BR i 33 THE BUFFER AND LOOP 
3S: f ps ; ECHO THe yom 
3 pe ets 
tk CL -1(R3) HE RETURN rT eTuaN 15) 
< T F 33 in eeY 
a rot t _. i FROM THE STACK 
; ' MOV (SP) F325) Like STACK AND PUT ADDRESS OF THE 
: ' MOV 4(SP3 2(SP) 33 ust, T ASCII CHARACTER ON IT 
: nov aSTTYIN, 4(SP) 
‘ : 2 Stone for ASCII CHAR. TO TYPE 
. -BYT 55 DERAINS 
7 tk TTYIN: -BLK' 2 33 RESERVE 22. BYTES FOR TTY INPUT 
ze0e ‘ TLC: PECTS ATCA 1® 33¢ 
NTLU: .ASC 7tU7¢15><12> ;;CONTROL “U" 
NTLG: -BSCIE 74G/¢15>< 12> 3;CONTROL “G" 
: .ASC <15><12>/SWR = / 
SMNEW: ASCIZ 7 NEW = 7 





- EVEN 
SBPTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


55,5 HE AE SE AE ME SE 96 9 9 A a a a a a aa aaa a a 
;*#THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 


rataat at atakal 


Pete ee ee ee 
WONT LSW-O 


“NN 
oo 





Cle 
NERO ee Oe Nee OE INES MACY RCO LENGTH BINARY 46 DECIMAL ASCII CONVERT ROUTINE 


ee rth, emeese NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


B 





tat at atatat at ata 4 





A 







ALATA AT AT 





SESS SEERERER ES RaangonRmnas Canoe SaeeROS RS INN 








o 


4S: 


MOV 


RETURN 


tB88 Sdumweceeee cess 


SBoRRERe 


£44 SNP 
me ee 


HOR OOF One 


SPNTR, -(SP) 
PC, as$0820 


Bae 
* << 
Be; 


5035 
44 
— a 
= 
2% 
= 
~ 
& 
a 


) 


“gira peanange 


2 30 
é 
+ 


POINTER TO LOW WORD OF BINARY NUMBER 


3 
;;THE FIRST ADDRESS OF ASCIZ 
33;1S ON THE STACK 


PICKUP THE DATA POINTER 


FOBRESS SF SCY? ‘sratna ON stack 


T9010 ea on? laa 


sees) wee “wae wees 
~ 
2 


BR _ IF TEN POWER TO LARGE 
Loge 1 TO PARTIAL 


A 


Mla ae st 
? 


Tien. 
RE ts GISTERS 


;;1.0E08 
;;1.0&07 
;;1.0E06 
3;;1.0E05 
;;1.0E04 
;;1.0E03 
;;1.0&02 
;;1.0€01 
;;1.0E00 
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SDE FY! BLKB 12. ope ao-rs RbiREREEve STORAGE FOR ASCIZ STRING 


> 9G TE SE Me HEH HE HE HE HEE HE HE HE HE RARE E ALARA ERARE EEE RAAE ERAS RR ERLE HE 


' kSAvE 

pang 

t EUPON RETURN’ FROM SSAVREG THE STACK WILL LOOK LIKE: 

Heres 

3% +4---RS 

Les 

3 #+10--- 

3 #+12---R1 

:#+14---RO 

SSAVREG: 
ney AHS} EPURY RP ON TRE 
nov Fa; -(8P) + PUSH BS Sn et 
ny ext) pues ee Sra 
Hov sete), —(SP) SAVE BS OF RAIN FLOW 
nov B(SP),-(SP) ;3SAVE PC OF MAIN FLOW 
nov §5( 86} * (3p) 3 SAVE pe SF SACL 


;#RESTORE RO-RS 
*CALL: 


# RESREG 

$RESREG: 
MOV (SP)+,22(SP) 33 T 
fev (SP)+,22(SP) 33 T L 

(SP)+,22(SP) 33 T MAIN F 

MOV (SP )+) 30(SP) 3 REST MAIN FLOW 
my SESSA HEEB STR INS fg 
MOV (5P)+)R3 HE TACK INTO R3 
MOV (SP)+,Re 33 TACK INTO Re 
MOV ( +.B HH TACK INTO RI 
nov (SP)+; 3;POP STACK INTO RO 


I 
-SBTTL RANDOM NUMBER GENERATOR ROUTINE 
Ne ee ee eee tae MUON TAFUER GElERAT 


; ATH NE 15 A E PRECISION PSEUDO RANDOM NUMBER GENERATOR 
Haut H AA RANGE 0 TO 2(4+33)-1. 

i * JSR PC, SRAND ;;CALL_ THE ROUTINE 

* i RETURN ;:;RETURN HERE THE RANDOM 

;* $5 R WILL BE IN 


_ cgReReo RK611/06 USR 


-Pll 


tnt at atat at 


c 
+> 
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R GENERA 
; ; SHINUM, SLONUM 









SRAND: MOV RO, -( SP) 
MOV Ri’ (SP) bEBUSH RG RI SN Stack 
MOV Re: -( SP) 4 
MOV $LONUM, RO 33 RO WITH L 
Bev : ade 3;SET R1 WITH HIG 
1S: RO’ te 
ROL Ri 33 nro R1 AND 
be Os ri oor 
A 33 FTL 
ADD SL ONUM, RO $5 MAKE X 129 
ADD SHINUM,R1 33 MAKE X 129 
bbe 81057, RO $5 TANT 
#47401,R1 3 7A ONS TANT 
HOV R vat 3350 
MOV (5P)+, Re ;; POF R2 
MOV ( +, RE >;POP TACK NTO RI 
Re then 
eee: ‘ 1 
SBTTL ROUTINE +5 SIZE MEMORY 
1 geemeagecesnanp. teenage agen ocemammertarnnn sat serpententa 
PC, $SIZE 


}SSLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 


SSIZE: MOV my HEEVE BL On THe Tacs 
PRE A VECTOR PS & PC 


MOV Sleatee 5(SP),, 

HOV PRO es, -SAVE THE STACK POINTER 
;;SET “ene PS TO THE mesh 

MOV 


Oy 
ag 


)+, IRERRVEC+E’ * _ one ON oBERRVECS2 
MOV beARvec 3;SET_FOR’ 
MOV »R1 33 T 
me tet (RiD+ ee ep 10 ss 
2s : R i 
rn 8h 
MOV (SP)+, J8ERRVE R VECTOR 
MOV (SP)+ SaERRVE 
MOV RL SiS $3 sae ADDRESS 
MOV (SP)4+,R1 STORE R1 
MOV (SP)+'RO RESTORE RO 
RTS PC 
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TAD 0 -CONTAINS T ; 
BORER AND UP ROUTINES Si Senccee  gae empesae 








Reoeh Tae Sace- DINTER 
TBEFO We ee 


: 


be 

_ 

5 
aE 


TTL DOWN 
5, RARAELLAELAALAELAAAALALE LALLA LAALRELL AES ERLAA EE RRALRRAE REEL ES 
bPORBR a a c T FOR FAST UP 
y MOV #PWRVEC+ sit 0:7 
MOV ) 33 RO 
a $3 R T 
HOV ) 35 Re T 
MOV ) 33 TACK 
rey } HB BY Bae 
nov ) 33 ON STACK 
MOV ,a8PWRVEC’ ; oe F UP VECTOR 
BR “2 ;; HANG UP 
5, RERARAEELARELELLAELLEAALLE RARE S RELA LE RARER ERASER REEL EERE EERE 
*POWER UP ROU 
$PWRUP: Mov SSILLUP ,gUPURVEC ; SET ofr FAST DOWN 
CLR cited oP at THE TTY 
1S: ane 3; ;WA ade 
Op 
HOV bi 
HOV Hee S1 ie Ra 
MOV 33 T NTO Re 
MOV 83 T R 
MOV 33 T NTO RO 
MOV c tat a DOWN VECTOR 
MOV A 
; 
ii 
; 
a 


sSAvES: 
SPOWER: .ASCIZ <15><12>”POWER” 


N 
.SBTTL B43 DECODER 
LATHIS ROUTINE WILL PICKUP THE LOWER GYTE OF THE “TRAB™ INSTRUCTION 
j HAND eNO USE IT fo a REF an BUSH THE ee THE E STARTING AD ADDRESS 
TINE OORcN USING THE SS OBTAINED IT WILL 
£eb TO THAT IRD 


STRAP: MOV ; SAVE RO 
MOV a TRAP ADDRESS 


BCP) R RO 
T MRIGHT BYTE OF TRAP 


( 
MOVB (RO),RO 
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ASL if feoex £86, proextne 
Boy fyRPaocno>,no f/shOtR 73 Te 
;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
STRAP2: MOV (SB) .~{SP) tove THE PC DOWN 
: ; ;RESTORE THE penn 
.SBTTL TRAP TABLE 
sHTHI uEPBGE CONTAING THE ogTARTING ADDRESSES OF THE ROUTINES CALLED 
a . 
; ROUTINE 
sdatatis T jCALLSTYPE © TRAPS (104401) TTY TYPEOUT ROUTINE it 
T be eetber TRAPS ean TYPE O&TAL ( EADING ZEROS) 
Typos i €atts set iBdBe} «TYPE BEC Thal NUMBER turin St@n 
SGTSWR ;;CALL=GTSWR §§ TRAP+6( 104406) GET SOFT-SWR SETTING 
SWR ; ;CALL=CKSUR TRAP +7 (104407) | Ty rie ¢ IN TSHR 
Foc ERS RBC TN farsi ic ipyat ) ih RI NE 
fed caine) TEEN Re ae 
wane Lond Ai ALL IN TRapstacd 13} F iL I TINE 
HPDATA: :ASCII /IMMEDIATE COMMAND SUMMARY: /<15><12><12> % 
.ASCII /COMMAND NMENONIC PARAMETERS /<15><12><12> 
4 
-ASCII /DRIVE SELECT DN ,ORIVE NUMBER/<15><12> 
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/FORMAT SELECT 


/OUTPUT TEST 


“INPUT TEST 


,? (PRINT DRIVE SELECTED) /<15><12 


FT »FORMAT(24 OR 26)7«¢15>< 12> 


»? (PRINT FORMAT SELECTED) /<15><1 


oT ,O (OBJECT) 7<15><12> 


»S (SOURCE) 7<15><12><12> 


IT/<15><12><1l2> 
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-ASCII /INPUT STRING 
-ASCII /COPY TAPE 


-ASCII /ITERATION COUNT 


-ASCII 7 


-ASCII /BUFFER DUMP 


-ASCII 7 


SEQ 0151 


1S/¢<15><12><12> 


CT/7<15><12><le> 


»NNNNN (DECIMAL COUNT) /<15><12> 


,? (PRINT COUNT) /<15><12><12> 


,BUFFER NAME(H,R,W,X,Y, OR Z)7<15 


»NUMBER OF WORDS~<15>< 12> 


a 


Jie | 
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| sx 6:81. 
| 044503 .ASCII /SPECIAL DATA PATTERN oP ,PATTERN NAME (X,¥,2)/<15><12> | 
| Boe 194 | 
| Be ou 
ASP 
os 
pang 
ASE 
rte 20040 -ASCII 7 ,D000. ..0(32 WORDS) 7<1S><12><12> 
0 = Loh 
BCU 
as 
ik BE a44C , 
. -ASCII /EDIT BUFFER EB ,PATTER NAME (X,Y,2)7¢15><12> 
-ASCII 7 , STARTING WORD NUMBER/<15><12> 
-ASCII 7 ,DD..D(UP TO 32 WORDS) /<15><12> 
-ASCII /COMPILE co .NC (NO CHECK) /<15><12> 


174 es! 
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-ASCII 7 ,BII (BUS INCREMENT INHIBIT)7<1S> 


-ASCII /ZEDIT ADD LINE EA ,»LINE NUMBER/< 1S>< 12> 


-ASCII 7 »NEW COMMAND’/<1S><12>< 12> 


-ASCII /EDIT DELETE LINE ED ,»LINE NUMBER/<15><12><12> 


-ASCII /PRINT TEST PT/<15><12><12> 


-ASCII /PRINT LINE PL »LINE NUMBER/<1S><12>< 12> 
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-ASCII /RUN 


-ASCII /PRINT REGISTER 
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-ASCII /TIME OUT CHANGE 


-ASCII 7 


DOWDDDODOWDOWDODVDVOWOWVVONOHO DOHDMOMDOOMDOD 
Fe te ee Be Be a en 8 Be Be es De Be ae fe ea ne ee De ee 





SEQ 0154 


NT7<15><12><12> 


RU/<15><12><12> 


PR ,»REGISTER NAME OR NUMBER/<15>< 12> 


HP/<15><12>< 12> 


TO »NNNNN (DECIMAL) 7<15>< 12> 


»? (PRINT CONSTANT) /<15><12><12> 


-ASCII /ALL DECIMAL VALUES MUST BE 65535(10) OR LESS/<15><12><12><12> 
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/DEFERRED COMMAND SUMMARY: 7<15><12><12> 


7COMMAND NMENONIC PARAMETER/< 15><12>< 12> 
/SUBSYSTEM FUNCTION SF » SUBSYSTEM CMND/<15>< 12> 
/ ,»DRIVE NUM/<15>< 12> 

/ »CYLINDER/< 15>< 12> 

/ , TRACK/< 15> <12> 
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/BUFFER INITIALIZE 


/DATA COPARE 


“STATUS COMPARE 





BI 


» SECTOR/<15>< 12> 


»WORD COUNT/<15>< 12> 


»DATA PATTERN/<15>< 12> 


»PATTERN SELECT/<15><12><12> 


»NNNNNN COCTAL)/<15><12><1la> 


»STATUS WO SELECT/<15>< 12> 
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/REGISTER WRITE 


' /REGISTER COMPARE 


C193 


RC 


,»EXPECTED VALUE/<15>< 12> 


,MASK/< 15> <12><12> 


,»REG NAME OR NUM/<15>< 12> 


, VALUE/<15><12>< 12> 


»REG NAME OR NUM/<15>< 12> 


,»EXPECTED VALUE/<15>< 12> 
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yoUl ’ ay 


rue eit 


-ASCII 7 »MASK7<15><12><12> 
-ASCII /STALL ST »NNNNN (DECIMAL) 7<15><12>< 12> 
-ASCII /PRINT MESSAGE PM » MESSAGE 7< 15><12>< 12> 



















te -ASCII /UNIBUS INITIALIZE UI7<15><12><12> 


-ASCII /ALL DECIMAL VALUES MUST BE LESS THAN 65535(10)7<15><12><12>< 12> 
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oe 4 -ASCII /SUBSYSTEM COMMANDS: 7<15><12>< 12> 
os 


0 -ASCII /COMMAND NMENONIC/<15><12><12> 
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/READ DATA 


/WRITE DATA 


/WRITE CHECK 


/WRITE HEADERS 


7READ HEADER 


/SEEK 


/CLEAR SUBSYSTEM 


/CONTROLLER CLEAR 


/ORIVE CLEAR 


/RECALIBRATE 


/DRIVE SELECT 


RD/<15><12> 


WD7/<15><12> 


WO7<15><12> 


WH/<15>< 12> 
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SK/<15><12> 
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-ASCII /UNLOAD 


$S/<15><12> 
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AH/<15><12><12>< 12> 


-ASCII /READ ALL HEADERS 


-ASCII /DATA PATTERNS: 7<15><12><12> 


othe 


-ASCII /PATTERNS “A” THROUGH “I” ARE PROVIDED. 7<15>< 12> 


ifhtetti 


-ASCIZ /REFER TO THE FUNCTIONAL SPEC FOR DETAILS. 7<15><12><12> 


- END 
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